COPYRIGHT Cc) 1984 i 
AH-T78ZA-MC fi fap if tay) 





Ae eae : 
CZTKHA® FICHE 01 OF 02 








AH-T?78ZA-MNC BOM DHED 
Be ERA .. . FIBRE 02 OF 6? 





Bi 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR 64 08:13 PAGE 2 
USER DOCUMENTATION 


.REM\ 


IDENTIFICATION 


PRODUCT ID: AC -T781A-MC 

PRODUCT TITLE: CZTKHA TK25 FRT END FUNC 04 
PRODUCT DATE: MARCH, 1984 

DEPARTMENT: TAPE DIAGNOSTIC ENGINEERING 
AUTHOR : OICE SYSTEMS, INC. 


COPYRIGHT (C) 1984 By 


BORO, Ss. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
i A TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
Potheree CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


THIS IS A POP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK2S5 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A POP-11 SYSTEM (Q-BUS OR 
UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG, CZTKH. SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM. 


THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, AND 
AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPMENT DOCUMENTS: 


1. CIQPMAO XxXDP+ PROGRAMMER’S MANUAL; DOCUMENT NUMBER AC-S296A-AC; 
DATE: 14 JULY 1980. 


1.1 REVISION HISTORY 
NEW RELEASE APRIL 1984 


SEQ 3 
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2.0 REQUIREMENTS 


2.1 HARDWARE REQUIREMENTS 


POP-11 FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TK2S MAGTAPE SUBSYSTEM (CORIVE AND CONTROLLER) 
CAUTION:DIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 
(26K USEABLE I.E. 4K FOR I/0 PAGE) 


2.1.1 OPTTONAL HARDWARE - 


FOUR TK25 CONTROLLERS PER PDP-11, ONE 
ORIVE PER CONTROLLER 


2.2 SOFTWARE REQUIREMENTS 


PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


2.3 PREREQUISITES 


FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


rs 


CETKHA TK GeRTAS TON FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 6 


3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDOS 


3.1 OPERATOR COMMANDS 


THE TK2S DIAGNOSTICS ARE POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 
ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE PDP-11 
PROGRAMMER'S MANUAL “CIQPMAO XXDP” PROGRAMMER'S MANUAL NUMBER AC-S296A-AC. 


BOOT THE DIAGNOSTIC XXDP+ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 


CHMDLEO XXDP+ DL MONITOR 
BOOTED VIA UNIT O 
28K NON-UNIBUS SYSTEM 


ENTER DATE <DD-MMM-YY>: 29-JAN-82 


RESTART ADDRESS: 152010  }— 
THIS IS XXDP+ TYPE “H” OR “H/L” FOR HELP. 


-R CZTKHA 


CZTKHA.BIC 


ORS -EO ‘ 
CZTKH-A-O { 
CZTKHA TK-25 FRT END FUNC 04 UNI’ IS TK25 

RSTRT ADR 147642 

DR>START/FLAG:PNT : HOE 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
eres ON WHICH ARE “PRINT EACH TEST NBR. AS EXECUTED” AND “HALT ON 


SEQ 5S 
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3.2 HARDWARE PARAMETERS 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?" QUESTION TO ASK IF THE 
HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT’S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSDB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 


A “Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A VALUE, 
IF PRESENT, LOCATED TO THE yt OF THE QUESTION MARK I3 THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A te A 
aie IN A pag the ws INDICATES THAT A DECIMAL NUMBER IS REQUIRED AS A 

RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING SOLICITED. AN "(L)” 
THAT A LOGICAL RESPONSE IS TO BE MADE: “Y” FOR YES, “N’' FOR NO. 


UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “ UNITS ?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


SEQ 6 


fe 


Hi 


Sear Deca alle Oe. OF ee ee Pe ee ee ES 


3.3 SOFTWARE PARAMETERS 


SEQ 7 


FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. THEY 
ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? < TYPE “Y" TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED. > 


INHIBIT ITERATIONS (L) N ? < TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 


ENABLE CONTROLLER RAM DUMP ON ERROR (L) N? < TYPE “Y" TO 


OUMP 
SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 


NOTE 


THE FOLLOWING QUESTION IS ONLY ASKED FOR THE 
CZTKH DIAGNOSTIC. 


INHIBIT EOT CHECKING (REDUCES RUN TIME BY 22 MINUTES) (L) N? 
<THIS WILL SIGNAL THE DIAGNOSTIC 
SKIP END OF TAPE CHECKING. IF THE 
OPERATOR JS CONVINCED THAT THERE 
IS NO PROBLEM WITH EITHER THE 
TRACK SWITCHING CAPABILITY OR 
THE EOT DETECTION MECHANISM, THIS 
— MAY GBF SKIPPED TO REDUCE RUN 

> 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSUL RUN EXAMPLES 


4.1.1 SUCCESSFUL RUN EXAMPLE - CZTKH - 


TST: 001 WRITE TAPE MARK RETRY TEST 

TST: O02 SKIP TAPE MARKS TEST 

TST: 003 NO-OP ("CLEAN TAPE”) AND INITIALIZE TEST 

TST: 004 ERASE AND OPERATION INCOMPLETE TEST 

TST: OOS TEST OF OPERATIONS AT EOT TEST 

CZTKH EOP 1 7 
O TOTAL ERRS . 


NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 


J1 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 
ERROR MESSAGE EXAMPLE 1 


TST: OOS OPERATIONS AT EOT TEST 
CZTKH HRD ERR 00517 ON UNIT 00 TST 005 SUB 001 PC:054200 
UNABLE TO CLEAR EOT INIDICATION (XSTO) BIT 0 


TSSR=000311 

TSSR CONTENTS ARE AMBIGUOUS 

TSSR BITS SET: SSR,OFL.BITO 

TERMINATION CLASS S CODE =RECOVERABLE ERROR - TAPE 
POSITION ONE RECORD DOWN 

@eeacaCHECK TRANSPORTsseaae 

PACKET ADDRESS=05551 


PACKET WORD #2*000000 
PACKET WORD @3°006654 


MESSAGE BUFFER ADDRESS=055400 
MESSAGE BUFFER CONTENTS: 


MESSAGE BUFFER HEADER *100020 
DATA FIELD LENGTH #900012 
RESIDUAL BYTE COUNTER *000000 
XSTATO CONTENTS #000311 
XSTAT1 CONTENTS #000000 
XSTAT2 CONTENTS =100000 


t XSTAT3 CONTENTS #000040 


KL 
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ERROR MESSAGE EXAMPLE 2 


CZTKH HRD ERR 00106 ON UNIT 00 TST 001 SUB 001 * 024240 
TSSR NOT CORRECT AFTER SPACE REVERSE DATA COMMAND 


TSSR=100214 

TSSR BITS SET: SC. SSR 

TERMINATION CODE = UNRECOVERABLE ERROR 
aeaeaeaCHECK TRANSPORTseseae 

PACKET ADDRESS =026510 

PACKET WORD #0 #141011 

PACKET WORD #1 =065152 

PACKET WORD #2 =000000 

PACKET WORD 3 =000000 


MESSAGE BUFFER ADDRESS *026400 
MESSAGE BUFFER CONTENTS: 


MESSAGE BUFFER HEADER =100022 
DATA FIELD LENGTH #000012 
RESIDUAL BYTE COUNTER 000000 
XSTATO CONTENTS #000312 
XSTAT1 CONTENTS #000000 
XSTAT2 CONTENTS =100000 
XSTAT3 CONTENTS =000141 


ERROR MESSAGE EXAMPLE 3 


CZTKH HRD ERR 00107 ON UNIT 00 TST 001 SUB 001 PC:024274 
WRITE TAPE MARK RETRY AT BOT, FAILED TO SET NEF (XSTO) 


EXPD: 002312 RECV: 000312 XxOR: 002000 


& S 
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5.0 PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A POP-11/23 (LSI) PROCESSOR 
WITH A LA-120 CONSOLE. 


THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 


ITERATIONS. THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 


S.1 RUN TIMES - CZTKH 


TEST N/I DEF 
NUMBER SECS. SECS 
1 180 


180 
2 113 113 
3 11 11 
4 120 120 
be) 1320 §=61320 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH S IN ONE COMMAND: 


Q@.V. 29 MINS 4 SECONDS 
DEFAULT 29 MINS 4 SECONDS 


SEQ 11 


M1 
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9.0 TEST DESCRIPTIONS - CZTKH 


6.1 TEST 1 - WRITE TAPE MARK RETRY 


RRRRERESEASEEAEEESEEEEEDEEEEEEDDEEDEEDEDEEDDEEADDDEEDEDEREEE 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE a 
* ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT « 
preerrrrrrrrrrrrerirrirerrirrrrrtrriririirrrrttttir ttt ti ir 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND 
€ SPACE REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 


6.1.1 TEST 2, SUBTEST 1: - 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON-EXECUTABLE (NEF) ERROR BIT SET. 


6.1.2 TEST 1, SUBTEST 2: - 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED BEFORE THE FIRST RECORD, BUT NOT AT BOT, RESULTS IN TAPE STATUS 
ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT SET. 


6.1.3 TEST 1, SUBTEST 3: - 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES PROPERLY AND 
WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE COMMAND AND 
CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 


6.1.4 TEST 1, SUBTEST 4: - 


VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK RETRY 
OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL WRITE TAPE 
MARK RETRY COMMANDOS IN SUCCESSION, THEN ISSUING TWO SP 

ACE RECORDS Ri “ERSE 

COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE COMMAND SHOULD 
TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 


Ni 
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6.2 TEST 2 - SKIP TAPE MARKS 


SRARAEARRAEREREREEEEAEAEEESESEEADADEDDDADEDEEERERREEEEDREDS 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE «# 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT « 
prrrrrrrrrrrrrr rrr rrr rrr 


THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS FORWARD AND SKIP 
TAPE MARKS REVERSE COMMANDS. PROPER OPERATION UNDER CONTROL OF ALL 
COMBINATIONS OF THE ENABLE SKIP TAPE MARKS STOP (ESS) AND ENABLE TAPE MARKS 
STOP OFF BOT CENB) BITS SPECIFIED BY THE WRITE CHARACTERISTICS COMMAND. 

THE TEST CONSISTS OF THE FOLLOWING SUBTESTS ( FOR EACH SUBTEST, THE TAPE IS 
FIRST WRITTEN WITH AN APPROPRIATE SERIES OF GATA RECORDS, AND/OR TAPE 
MARKS, AND/OR DOUBLE TAPE MARKS). 


6.2.1 TEST 2, SUBTEST 1: - 


VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH A TAPE MARK COUNT OF 1 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH SEVERAL 
"FILES"; EACH FILE CONSISTS OF A_NUMBER OF DATA RECORDS FOLLOWED BY A TAPE 
MARK. EACH DATA RECORD CONTAINS THE FILE NUMBER AND THE RECORD NUMBER 
WITHIN THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY VERIFIED By 
READING THE DATA. THE TAPE IS AGAIN REWOUND AND A SERIES OF TAPE SKIP MARK 
COMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT TERMINATION, TMK=1, 
STATUS, TAPE FOSITION VIA READ COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF 
EACH SKIP COMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO SET UP THE 
ESS AND ENB CONTROL BITS. ALL COMBINATIONS OF ESS AND ENB ARE USED 

a 101, eke? ; OPERATION SHOULD BE THE SAME IN EACH CASE FOR THIS 


6.2.2 TEST 2, SUBTEST 2: - 


VERIFIES THAT SKIP TAPE MARKS COMMAND WITH A TAPE MARK COUNT GREATER THAN 1 
OPERATES PROPERLY. COUNTS OF 2, 3, 8, 32, 64, 256, AND Si2 ARE TESTED. 
THE TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


6.2.3 TEST 2, SUBTEST 3: - 


VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


Be 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 15 SEQ 14 
USER DOCUMENTATION 


6.2.4 TEST 2, SUBTEST 4: - 


VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) CAUSES 


cee STATUS ALERT TERMINATION WITH THE REVERSE INTO BOT (RIB) STATUS BIT 


Ce 
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6.3 TEST 3 - NO-OP ("CLEAN TAPE”) AND INITIALIZE 


THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE”) AND 
INITIALIZE COMMAND. SUBTESTS ARE: 


6.3.1 TEST 3, SUBTEST 1: - 


VERIFIES THAT THE NO-OP COMMAND ( CORRESPONDS TO THE CLEAN TAPE COMMAND) 
TERMINATES PROPERLY ( NORMAL TERMINATION), STORES PROPER STATUS IN THE 
MESSAGE wa tae tee ne GET STATUS COMMAND), AND INDEED DOES ! MOVE 


OREO. 
THE FIRST RECORD ON TAPE IS READ AND VERIFIED (TO CHECK THAT TAPE POSITION 
AND VERIFYING DATA WERE NOT CHANGED), THEN THE NO-OP COMMAND IS ISSUED 
AGAIN AND STATUS AND POSITION ARE VERIFIED. 


6.3.2 TEST 3, SUBTEST 2: - 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, ASSUMING NO 
MICROODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD HAVE ALREADY BEEN DETECTED 
IN OTHER TESTS). THE TEST SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


De 
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6.4 TEST 4 - ERASE AND OPERATION INCOMPLETE 


PROAAEDEEEOREEOOOEOEO00000000000000060000000060000000000008 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE « 
# ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT « 
POROOOO0000000000000600000600000000060000006000060006060008 


THIS TEST VERIFIES THAT THE ERASE COMMAND OPERATES PROPERLY AND THAT THE 
VARIOUS OTHER TAPE MOTION COMMANDS TERMINATE WITH UNRECOVERABLE ERROR ( TAPE 
POSITION LOST) AND OPERATION INCOMPLETE (OPI) STATUS WHEN THEY DO NOT 

pape th ANY DATA ON THE TAPE. THE TEST CONSISTS OF THE FOLLOWING 


6.4.1 TEST 4, SUBTEST 1: - 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS POSITIONED AT BOT 
OPERATES PROPERLY AND ACTUALLY ERASES THE TAPE. THE FOLLOWING TEST 
SEQUENCE IS PERFORMED: 


1. THE TAPE IS FIRST REWOUND, ag SEVERAL TEST RECORDS ARE WRITTEN 
AND THE TAPE IS REWOUND AGAIN 


2. cacomoae COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER OF TEST 


3. ~arr TERMINATION IS VERIFIED AND POSITION IS CHECKED (BOT SHOULD 


4. A _READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT THE COMMAND 
TERMINATES WITH TAPE STATUS ALERT, THAT THE REVERSE INTO BOT (RIB) 
STATUS BIT IS SET, AND THAT NO DATA IS TRANSFERRED. THIS 
DEMONSTRATES THAT NO DATA WAS ENCOUNTERED IN THE AREA ERASED BY 
THE ERASE COMMAND. 


6.4.2 TEST 4, SUBTEST 2: - 
VERIFIES THAT AN ERASE COMMAND, EXECUTED WHEN THE TAPE IS NOT POSITIONED AT 
A ae ae PROPERLY AND DOES NOT CORRUPT PREVIOUS TAPE RECORDS. THE TEST 


1. THE TAPE IS FIRST swoon SEVERAL TEST RECORDS ARE WRITTEN, AND 
THE TAPE IS REWOUND AGAIN 


2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE TAPE OFF OF 
BOT AND SKIP OVER THE FIRST SEVERAL RECORDS. 


3. Ry COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER OF TEST 


EQ 
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4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 


S. A_READ REVERSE COMMANDO IS ISSUED. IT IS VERIFIED THAT NORMAL 
TERMINATION IS ACCOMPLISHED AND THAT THE DATA TRANSFERRED 
CORRESPONDS TO THAT FOR THE EXPECTED RECORD. THIS DEMONSTRATES 
THAT NO DATA WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND, AND THAT THE PREVIOUS RECORD WAS NOT CORRUPTED. 


6.4.3 TEST 4, SUBTEST 3: - 


VERIFIES THAT THE TAPE MOTION COMMANDS, EXECUTED WHEN THE TAPE IS BLANK, 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION INCOMPLETE STATUS. 
THE FOLLOWING TEST SEQUENCE IS EXECUTED: 


1. THE TAPE IS REWOUND. 


2. 300 ERASE COMMANDS ARE ISSUED (ABOUT HALF-WAY DOWN FIRST TRACK). 


3. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS (ISSUED _ THE 
ORDER GIVEN ) RESULTS IN UNRECOVERASLE ERROR TERMINATION WITH 
OPI=1; SPACE RECORDS REVERSE, SKIP TAPE MARKS REVERSE, READ 
REVERSE, REREAD PREVIOUS COPP=0), REREAD PREVIOUS gcte REREAD 
NEXT (OPP=1), REREAD NEXT (OPP=0), READ NEXT, SKIP TAPE MARKS 
REVERSE, SKIP TAPE MARKS FORWARD, REVERSE SKIP TAPE MARKS FORWARD, 
SPACE RECORDS FORWARD, WRITE DATA RETRY. 


Fe 


CZTKHA TK-25 FRT END F o4 MACRO M - APR - P 
ats RTATION UNC CRO M1200 20 84 08:13 PAGE 19 


6.5 TEST S - OPERATIONS AT EOT 


SEPRERARAHAEAAARAHRRAARHARAHAHRERARAARAHARAAAEREAMEEREERHAEHEH 


a NOTE: 


THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE «+ 


* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT «+ 
PYrrrreririrrrr rrr) 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY THE VARIOUS 
TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE IS PERFORMED: 


1. 
2. 


THE TAPE IS REWOUND. 


WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE STATUS ALERT 
TERMINATION IS SEEN WITH EOT*1. ERRORS OTHER THAN OCCASIONAL 
CORRECTABLE, OR UNCORRECTABLE DATA ERRORS CAUSE A FATAL ERROR 
ro al “aie WITH DATA ERRORS ARE RETRIED, SO THE TAPE ENDS UP 


ANOTHER WRITE DATA COMMAND IS ISSUED AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


A_WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT#1. 


A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS WITH EOT=1, AND TMKe=1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 1, IS 
ISSUED, AND IT IS CHECKED a TAPE STATUS ALERT TERMINATION 
OCCURS, WITH EOT=*1, AND TMKe1 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 1, IS 
et AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS ‘arth 


A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 1, IS 
+ a AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS, WITH 


A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED THAT NORMAL 
TERMINATION OCCURS WITH EOT=1. 


A READ FORWARD COMMANDO IS ISSUED, AND IT IS CHECKED THAT NORMAL 
TERMIANTION OCCURS, WITH EOT=1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 3, IS 
ISSUED, AND IT CHECKS THAT NORMAL TERMINATION OCCURS WITH EOT=0. 


. A SPACE RECORDS FORWARD COMMAND WITH A RECORD COUNT OF 3 IS 


Ss AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS WITH 


- A REWIND COMMAND IS ISSVED TO RETURN TO BOT. 


SEQ 18 


KHA [K-25 _F FUNC 04 
GEER BodtmeRTATON FUNC 
\ 

664 

665 

671 

672 000000 

673 

674 

680 000000 

681 002000 

682 002000 
002000 

- 683 

684 

685 

686 

687 

688 

689 

690 002000 

691 002000 
002000 

103 

002001 132 
002002 124 
002003 113 
002004 110 
002005 
002006 000 
002007 000 
002010 
002010 101 
002011 
002011 060 
002012 
002012 000001 
002014 
002014 001217 
002016 
002016 065012 
002020 
002020 065152 
002022 
002022 002124 
002024 
002024 002134 
002026 
002026 065376 
002030 
002030 000000 
0020 
002032 000000 
002034 
002034 000000 
002036 
002036 000000 
002040 


002040 . 065360 


Ge 
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-SBTTL PROGRAM HEADER 
ana svc 


-ENABLE LC 

-NLIST BEX,CNOD 

-ENABL AMA,ABS 
2000 


BGNMOD TUV2A 
TUV2A:: 


° 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
3 -—- 


s INITIALIZE SUPERVISOR MACROS 


POINTER BGNSW,BGNSF T ,BGNAU,BGNOU,BGNRPT , BGNSE TUP 
HEADER CZTKH,A,0,655.,0 
LSNAME:: : sOIAGNOSTIC NAME 


-ASCII /C/ 
-ASCII /2/ 
ASCII /T/ 
~ASCII /K/ 
-ASCII /H/ 
YTE O 
BYTE 0O 
-BYTE O 
LSREV:: sREVISION LEVEL 
-ASCII /A/ 
LSDEPO: : 30 
-ASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 
. WORD TSPTHV 
LSTIML:: sLONGEST TEST TIME 
-WORD 655. 
LSHPCP:; sPOINTER TO H.W. QUES. 
-WORD LSHARD 
L$SPCP:; sPOINTER TO S.W. QUES. 
-WORD LSSOFT 
LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
-WORD LS$HW 
LSSPTP:: sPTR. TO S.W. PTABLE 
-WORD LS$SW 
L$LADP:;: sOIAG. END ADDRESS 
-WORD LSLAST 
LSSTA:: sRESERVED FOR APT STATS 
-WORD O 
LSCo:: 
-WORD O 
LSOTYP:: sDIAGNOSTIC TYPE 
-WORD O 
LSAPT:: ;APT EXPANSION 
» WORD 0 
LSDTP:: 3sPTR. TO DISPATCH TABLE 


-WORD LSDISPATCH 


SEQ 19 


Sa oRAM KeRbeR™ END FUNC 04 


022554 
022652 
000000 
003346 
104035 
000000 
021770 
023034 
022760 
021760 
000000 
000000 
000000 


L$PRIO:: 
LSENVI:: 
LSExXPi::. 


LSMREV::— 
8 


L$SPC:: 

LSDEVP:: 
LSREPP:: 
LSEXP4:: 
LSExPS:: 
LSAUT:: © 
LsOUT:: — 
L$LUN:: 
LSDESP:: 
L$LOAD:: 
LSETP:: 

LSICP:: 

LSCCP:: 

LSACP::; 

LSPRT:: © 
LSTEST::. 
LsOLY:: © 
LSHIME:; 


TEREE 


o 


He 
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sDIAGNOSTIC RUN PRIORITY 


0 
0 sFLAGS DESCRIBE HOW IT WAS SETUP 
0 sEXPANSION WORD 
3SVC REV AND EDIT @ 
CSREVISION 
CsEDIT 
0 sDIAG. EVENT FLAGS 
0 
0 rf 
s POINTER TO DEVICE TYPE LIST 
LSOvTYP 
sPTR. TO REPORT CODE 
LSRPT 
0 
0 
sPTR. TO ADD UNIT CODE 
LSAU 
Leou sPTR. TO DROP UNIT CODE 
0 sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
Ls$DESC 
sGENERATE SPECIAL AUTOLOAD EMT 
EsLOAD 
° sPOINTER TO ERRTBL 
sPTR. TO INIT CODE 
LSINIT 
sPTR. TO CLEAN-UP CODE 
LSCLEAN 
3PTR. TO AUTO CODE 
L$SAUTO 
sPTR. TO PROTECT TABLE 
L$PROT 
6 3 TEST NUMBER 
6 sDELAY COUNT 
. sPTR. TO HIGH MEM 


SEQ 20 


BEFAUCT HARBwane B'PaBLe’ ° 


002122 
002122 
002124 
002124 


002124 
002126 
002130 
002132 
002132 


000003 


172522 


Te 
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-SBTTL DEFAULT HARDWARE P-TABLE 


3¢ 
: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


: THE TEST-DEVICE PARAMETERS. 


BGNHW 

. WORD 
LSHW:: 
OFPTBL:: 

.» WORD 

.WORD 

. WORD 

ENOHW 
L10000: 


OFPTBL 
L10000 -L $HW/2 


172522 
224 
PRIOS 


THE STRUCTURE OF THIS TABLE 
3: IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


sDEFAULT HARD-P-TABLE 


s 2ND (OF 2) REGISTERS. 
; INTERRUPT VECTOR 
s INTERRUPT PRIORITY. 


SEQ 21 


CZTKHA TK-25 FRT END FUNC 04 


SOFTWARE P-TABLE 


000005 


Je 
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-SBTTL SOFTWARE P-TABLE 


gee 
:; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
: PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW 
WORD 


L$SwW:: 
SFPTBL:: 


TRANSTST: : 
NOI 


EOTSEL:: 


SFPTBL 


8 
L10001-L$SW/2 


. WORD 
. WORD 


oo 


°o 


sENABLE RAM DUMP IF =1 

s INHIBIT Se a a OPTION. 
s ... O = ITERATE. 

s ...NZ * INHIBIT ITERATE. 


s“INHIBIT EOT CHECKING CREDUCES TEST TIME 
iBY ABOUT 22 MINUTES” 

s LOCAL (PER TEST) ERROR LIMIT 

s GLOBAL (PER UNIT) ERROR LIMIT 


SEQ 22 


Ke 
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SOFTWARE P-TABLE 
728 
tas .SBTTL GLOBAL EQUATES SECTION 
746 
747 
748 
Lt .SBTTL GLOBAL EQUATES SECTION 
751 3¢ 
752 ; 3 THE GLOBAL EQUATES pl gl oo PROGRAM EQUATES THAT 
753 3; ARE USED IN MORE THAN ONE T 
735 ee 
759 002146 EQUALS 3; GET STANDARD EQUATES. 
3 
3; BIT DIFINITIONS 
3 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11=*= 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
3 
001000 BIT9== BITO9 
000400 BIT6== BITOS 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4=s= BITO4 
000010 BIT3== BITOS 
000004 BIT2== BITO2 
000002 BITise= BITOL 
000001 BITO== BITOO 


3 
; EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


a 
000040 EF .START== 32. s START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. s RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. 3; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. + A POWER-FAIL/POWER-UP OCCURRED 


4 
3; PRIORITY LEVEL DEFINITIONS 
3 


GCOSAC EGuATES*SEEVPOAYNS °* 


760 
761 002146 


000250 


177572 
177574 
177576 
172516 


a. 
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PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3S== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 


; 
s;OPERATOR FLAG BITS 


3 

EVL== 4 
LOT== 10 
ADR== 20 
I0Us= 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT == 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


KT11 ee sDEFINE MEMORY MANAGEMENT REGISTERS 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3#KT11 VECTOR ADDRESS 
MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


ar NB 
s#USER “I” PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


UOPOR1= 177622 
UDPDR2= 177624 
UDPORS= 177626 
UDPDR4= 177630 
UDPORS= 177632 
UDPOR6= 177634 
UDPOR7= 177636 


. ENOC 
s*USER “I” PAGE ADDRESS REGISTERS 


SEQ 24 


Me 


CZ TKHA aKNAC SET Ne RNY e 8ns MACRO M1200 20-APR-84 08:13 PAGE 24-2 SEQ 25 


UIPARO= 177640 
UIPARI= 177642 
UIPAR2= 177644 
UIPAR3S= 177646 
UIPAR4= 177650 
UIPARS= 177652 
UIPAR6= 177654 
«yy 177656 ' 


;#USER “D" PAGE ADDRESS REGISTERS 
UDPARO= 177660 


.IF NB 

s*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172200 

SIPORi= 172202 

SIPOR2= 172204 

SIPORS= 172206 

SIPOR4= 172210 

SIPORS= 172212 

SIPOR6= 172214 

SIPOR7= 172216 


.IF NB 
s#SUPERVISOR “DD” PAGE DESCRIPTOR REGISTERS 
SDPORO= 172220 


-ENOC 
3#SUPERVISOR “I” PAGE ADDRESS REGISTERS 
SIPARO= 172240 


. NB 
s*SUPERVISOR "D” PAGE ADDRESS REGISTERS 
SOPARO= 172260 

SOPAR1= 172262 

SDPAR2= 172264 

SDPAR3= 172266 " 

SOPAR4= 172270 


CZTKHA TK-25 FRT END FUNC 04 
MEMORY MANAGEMENT DEFINITIONS 


172316 


SDPARS= 172272 
SOPAR6= 172274 
SDPAR7= 172276 
ENDC 


-ENDC 


;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
PDRO= 172300 


IF NB 
s#KERNEL “D" P 


AGE 
DESCRIPTOR REGISTERS 
K 172320 


KIPARO= 172340 


KDPARO= 172 
KDPAR1= 172362 
KDPAR2= 172364 
KDPAR3S= 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
-ENOC 


Ne 
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NB 
3 #KERNEL << ADDRESS REGISTERS 


SEQ 26 


BS 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 06:13 PAGE 25 SEQ 27 
TK-25 REGISTER ANDO PACKET DEFINITIONS 
he -SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 
6 
768 3 
769 s SOME GENERAL EQUATES. 
770 i 
771 
772 000004 ERRVECe= 4 s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
773 000060 TTIVECes 60 s INTERRUPT VECTOR FOR CONSOLE INPUT 
774 177560 TTICSRee 177560 s BUS ADDRESS OF CONSOLE INPUT 
bk 177562 TTIBFRee 177562 s CONSOLE INPUT DATA BUFFER 
777 te 
rr s6IT DEFINITIONS FOR TSSR REGISTER 
t- 
780 
781 100000 SCe BIT15 sSPECIAL CONDITION 
782 040000 BIE= BIT14 s8US INTERFACE ERROR 
783 020000 SCEe BIT13 sSANITY CHECK ERROR 
784 010000 RMR= BITi2 }MODIFICATION REFUSED 
785 004000 NXM= BIT11 sNONEXISTANT MEMORY ERROR 
786 002000 NBA= BIT10 sNEEO BUFFER ADDRESS 
787 001400 HIADOR= BITS!BITS sEXTENDED ADORESS BITS 
788 000200 SSR= BIT7 3SUB SYSTEM READY 
789 000100 OFL®= BIT6 sOFF LINE BIT 
790 000060 FATERR=: BIT4!BITS sFATAL TCRMINATION ERROR CODES 
Led 000016 TERCLS= BITS!BIT2:BIT1 s TERMINATION CODES 
793 
794 3° 
795 3 
796 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
797 3(xXSTO) 
798 t 
799 3- 
800 
801 100000 xSOTMKe BIT15 sTAPE MARK DETECTED 
802 040000 XSORLS* BIT14 sRECORD LENGTH SHORT 
803 020000 XSOLET=* BIT13 sLOGICAL END OF TAPE 
804 010000 XSORLL* BIT1I2 sRECORD LENGTH LONG 
805 004000 XSOWLE* BIT11 sWRITE LOCK ERROR 
806 002000 XSONEF* BIT10 sNON EXECUTABLE FUNCTION 
807 001000 XSOILC* BITS s ILLEGAL COMMAND 
808 000400 XSOILA® BITS sILLEGAL ADORESS 
809 000200 xXSOMOT* BIT7 sTAPE IN MOTION 
810 000100 XSOONL® BIT6 s TRANSPORT ON LINE 
611 000040 XSOIE* 6ITS sINTERRUPT ENABLE 
812 000020 xSOVCK= BIT4 sVOLUME CHECK BIT 
813 000010 XSOPED* BITS sPHASE ENCODED ORIVE 
814 000004 XSOWLK= BIT2 iWRITE LOCKED 
815 000002 xSOBOT= BIT1L sBEGINNING OF TAPE 
ae 000001 XSOEOT= BITO sEND OF TAPE 
818 
819 3° 
820 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
821 s(XST1) 


822 s- 


C3 
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823 100000 Xi2.0LT © BIT1S sOATA LATE 
824 040000 X1.SPARE* BIT14 sNOT USE 
825 020000 x1.COR © BIT13 sCORRECTABLE DATA ERROR 
017375 X1.MBZ «© BIT12-BIT11-B1T10-B119+6117 «BIT6 8115 -B114-BIT3-B112-8170 sALWAYS O 
827 000400 x1. * BITS + READ ARITY ERROR 
628 000002 X1.UNC © BIT1L LUNCORREC TABLE DATA OR HARD ERROR 
830 
831 iBIT DEF INETIONS FOR EXTENDED STATUS REGISTER 2 
ose af xST2) 
834 100000 X2.0PM * BIT15 eer IN PROGRESS (TAPE MOVING) 
835 040000 X2.RCE © BIT14 RAM CHECKSUM ERROR 
836 035400 X2. SPARE © IT13-81712-81711-B1T9-BIT8 sNOT USED BY TK-25 (ALWAYS=*0) 
837 002000 . * BIT1 WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
838 000200 X2.EXTF © BIT? iIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
839 000100 .BUFE © BIT6 sIF WRITE CHAR CMD THEN © BUFFERING ENABLED 
840 000077 X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
gal 000007 X2.UNIT © BIT2+BIT1+BITO tIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
843 ar 
844 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
ts 3(XST3) 
3: 
847 177400 X3.MDE = 177400 sMICRO- OTAGNOSTIC ERROR CODE 
848 000200 X3.SPARE* BIT7 sNOT USED BY TK-25 
849 000100 X3.0PI © BIT6 } OPERATION INCOMPLETE 
850 000040 X3.REV © BITS sRE VERSE 
851 000020 X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 
852 000010 X3.0CK =» BITS sDENSITY CHECK 
853 000006 X3.MBZ *BIT2-BIT1 sNOT USED ALWAYS 0 
a4 000001 x3.RIB © BITO sREVERSE INTO BOT 
856 se 
857 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
oo. 3(xST4) 
37 
860 100000 X4.HSP © BITIS sHIGH SPEED 
861 040000 x4.RCE = BITI4 sRETRY COUNT EXCEEDED 
862 020000 x4.TSM © BIT13 s TRANSPORT SPECIAL MODE 
e s ° ° ° ° 3 
863 017400 x4.MBZ BITi2 sBIT11 BIT10 BIT: BITS NOT USED ALWAYS 0 
ose 000377 x4.WRC = 000377 s;WRITE RETRY COUNT FIELD 
BEE 
867 se 
658 3 
969 sTSSR TERMINATION CODES (BIT 0-2) 
3 
871 3- 
872 
873 000006 TSREJ= 302 sCOMMAND REJECTED 
ove 000006 UNREC*® 6 s}UNRECOVERABLE ERROR 
876 a¢ 
877 : 
878 sDEVICE REGISTER OFFSETS 


879 3 


D3 
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177776 
177776 
177776 
177776 
177777 
177777 
000000 
000001 


000003 


3° 
s TSOB ADDRESS BIT DEFINITIONS 


t- 
A1716 == BIT1I+BITO 


3° 
s COMMAND DEFINITIONS 


a¢ 
P.GETSTAT * 17 
P. INIT = 13 
P.CONTROL * 12 
T * 11 
ayes YE . i 
P.WRITE a) 
P..WRTCHAR * 4 
P.READ = 1 


sTSOB/TSBA REGISTER 
sTSOB/TSBA REGISTER 


sTSOB/TSBA REGISTER HIGH BYTE 
sTSSR REGISTER 
sTSSR REGISTER HIGH BYTE 


sADORESS BITS 17:16 ARE IN 1;0 


3sGET STATUS 

s INITIALIZE 

sCONTROL COMMANDS 
3sFORMAT 

sPOSITION 

sSUBSYSTEM WRITE 

sWRIT 

sWRITE CHARACTERISTICS 
sREAD 


3¢ 
s COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.OPP = BIT13 
P.SWwB = BIT 
P.MODE = 


P.IE = BIT7 
P.FMT= BIT6:61T5 
CMD 37 


3° 
s CONTROL COMMAND MODE CODES 
g§° 


PC .RELEASE = 00256. 
PC .REWINO = 10256. 
PC .NOOP = 20256. 
PC. IEREW = 40256. 
PC .ERASE = 54256 


3° 
s CONTROLLER RAM DEFINITIONS 
8 - 

RMCHBEG = 167 

RMCHE 


RMMSGBEG= 104 


BIT12 
. ares !BITLO!IBITSIBITS 


sBUFFER AVAIL FOR CONTROLLER 
sCLEAR VOLUME CHECK 

sREVERSE SEQUENCE OF DATA BITS 
sSWAP BYTES IN MEMORY 
iEXTENDED COMMAND MODE FIELD 


NABLE 
sPACKET HEADER I acct 


sRELEASE BUFFER 
sREWIND 


3NO-OP 
sREWIND IMMEDIATE INTERRUPT 
sSECURITY ERASE 


SEQ 29 


sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
eee TERT STIS TO DATA END RAM ADDRESS 
sCOMMAND PACKET 


BEGIN RAM ADDRESS 


i COMMAND PACKET END RAM ADDRESS 


sMESSAGE BUFFER BEGIN RAM ADDRESS 


eo 
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RTS 


000117 


000200 


RMMSGEND= 117 


3¢ 


SEQ 30 


sMESSAGE BUFFER END RAM ADDRESS 


3 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


xSTO#= 6 
xSTis= 68. 
xST2*= 10, 
xST3*= 12. 
xST4*= 14, 


3° 


sEXTENDED STATUS REGISTER O (WORD 4) 
sEXTENDED STATUS REGISTER 1 (WORD 5) 
sEXTENDED STATUS REGISTER 2 (WORD 6) 
sEXTENDED STATUS REGISTER 3 (WORD 7) 
sEXTENDED STATUS REGISTER 4 (WORD 8) 


3 
s;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 
sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


3° 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 
BSEL1 =1 
SEL2 se 
SELDATA = 4 


3¢ 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


Pw.NOP = 0 
Pw. RORAM °1 
PW. WTRAM 2 
PW.RFIFO ° 3 
Pu.WFIFO = 4 
PwW.ROSTAT *= 5 
Pw. WCTL * 6 
PW.WFMT = 7 
PW. WMISC = 10 
Pu. * 11 
Pw.022 = 20 
Pw.011 * 21 
Pw.013 * 22 
Pw.NO1311 » 23 
PW. ROEXT = 24 


3¢ 
sBSEL1 CODES FOR WRITE TAPE CONTROL 
ge 

WC. IFAD = BIT7 


sREAD STATUS 

sWRITE TAPE CONTROL 
sWRITE TAPE FORMAT 
sWRITE MISCELLANEOUS 
sWRITE NPR CONTROL 
s00 MICROTEST 22 


sOISABLE MICROTEST 11 AND 13 
sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 


sIFAD - FORMATTER ADORESS 


Se TK-25 FRT END F 


K-25 REGISTER AND PACKE 


DEF INITIONS 


ro 
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MS .EXT = BIT7 
MS .RSFIFO = BIT4 
MS .RSTAPE = BITS 
MS.ATTN * BIT2!:BIT1 
oR = BITO 
3¢ 
s MS.ATTN SUBCODES 
ge 
MSA.NOP = Os#2 
MSA.VOL = 12 
MSA.NRAM= 202 
MSA.FRAM= 302 
tied 
8 
3- 
NP .IR = BIT7 
NP .OUT = BITE 
NP .LOOP = BITS 
NP .WRP * BIT4 


FORMAT 


SEQ 31 
sITADO - TRANSPORT ADORESS BIT O 
sITAD1 - TRANSPORT ADDRESS BIT 1 
sIRESVS - RESERVED 65 
3s IREW - REWIND 
sIRWU - REWIND AND UNLOAD 
sIFEN - FORMATTER ENABLE 
3GO 
sIHISP - HIGH SPEED 
sIWRT - WRITE 
3s IREV - REVERSE 
3 IWFM - WRITE FILE MARK 
sIEOIT - EDIT 
sIERASE - ERASE 
sIRESV3S - RESERVED #3 
sIRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 


sINVERT SENSE OF EXTENDED FEATURES SWITCH 
sRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
sATTENTION TRIGGER FIELD 

sRESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP (NOTHING TRIGGERED) 

sSIMULATE ON-LINE/OFF-LINE TRANSISTION 

sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


s INTERRUPT REQUEST (0-1 TRANSITION) 

sTAPE DATA DIRECTION OUT (O- IN) 

sENABLE TRANSPORT LOOPBACK 

sWRITE CORRECT PARITY (SET=O0 TO WRITE WRONG) 


3¢ 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


$1. I2RESV 
$1. I1RESV 


BITe 
BIT1+BITO 
BIT1S 
BIT14 
BIT13 


sWORD 9 BYTE 2 ryt IN MISS 


TIMER B FLAG H 
CUNDEF INED ) 
WORD 08 BYTE 1 PARIN H 

IRESV2 

TRESV1 


G3 
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010000 
004000 


$1. IEOT * BIT12 
$1. I IDENT * BIT11 
$1.ICER * BIT10 
$1. IFMK = BITS 
$1. IHER * BITS 
SO. ISPEED * BIT7 
SO. IRDY = BIT6 
SO. IONL * BITS 
SO. ILOP * BIT4 
SO. IDBY = BITS 
SO. IRWO * BIT2 
SO. IFBY = BIT1 
ge IFPT IT 


= BITO 
SPECIAL KEYBORD STUFF FOR MOVER 


TKS #177560 
TKB #177562 
TPS #177564 
TPB #177566 


HIMEM 2007776 
i CONTROLLER DEFINITIONS 
3 
3 

CSR =174400 

BAR #174402 

DAR #174404 

MPR #174406 


CONTROLLER COMMANDS 


OLGETS #4 
SEEK "6 
#10 
READ #14 
DLRONH =16 
° 
i 
6 
3 
é 
6 
READY =1 
SR #13 
DLERR +177730 
DLUN ° 


ROMBASE = MOVER 


SEQ 32 


WORD #8 BYTE O Se H 


ioe cf ee ce Ge Ge Ge Ge Ge Ge Ge Ge ae 
3 
< 
r 


3 
3 
3 


sKEYBOARD STATUS REGISTER 
sKEYBOARD DATA REGISTER 

sCONSOLE PRINTER STATUS REGISTER 
sCONSOLE PRINTER DATA REGISTER 
sHIGH MEMORY MASK VALUE 


sSTATUS AND CONTROL REGISTER 
s0L ADORESS REGISTER 
sPLATTER ADDRESS 
sMULTIPURPOSE REGISTER 


sGET STATUS COMMAND 

sSEEK TRACK AND HEAD SELECT 
sREAD SECTOR HEADER 

sREAD COMMAND 

sREAD SECTOR NO HEADER CHECK 


sORIVE READY Fase IN STATUS REG. 
sSTATUS AND RESET 


UNLOADED 
sMASK FOR” CYLINDER ADORESS 
sDONE SET OR ERROR SET BITS 


sSTART OF THE BOOT ROM S8aaaa 


H3 


TKHA_TK-25 FR -APR - , . 
Te TSS REE TSTERT ANB NBAGROT Sérrnr¥QGRQ "1200 20-APR-84 08:13 PAGE 25-6 os 
1108 177560 TTICSR = 177560 sKEYBOARD INPUT STATUS 
1109 177562 4 TTIBFR = 177562 sKEYBOARD DATA REGISTER 
1110 177564 TTOCSR = 177564 sCONSOLE PRINTER STATUS REGISTER 
1111 177566 TTOBFR = 177566 sCONSOLE PRINTER DATA REGISTER 


13 
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SPECIAL MACROS AND OPDEFS. 

44e4 .SBTTL SPECIAL MACROS AND OPDEFS. 

1 

1116 

1117 3° 

1118 ;SAVE GENERAL REGS 1 TO 5S 

1119 3° 

1120 

1121 -MACRO SAVREG 

1122 JSR RS,REGSAV 

1123 .ENOM 

1124 

1125 3° 

tH : MACRO TO FORCE AN ERROR 

114 “MACRO FORCERROR TAG, ,NOTSSR 

1130 ‘See NOF LISTALL, .NLIST 

1131 T 

1132 TF B NOTSSR 

1133 MOV TSSRCRS),R1L sREAD TSSR 

1134 -ENDC 

1135 MOV FORCER ,FORCER 3IS FORCER SET? (LEAVE C BIT ALONE) 

1136 BNE TAG 368R IF YES 

1137 »NLIST 

1138 -IIF NOF LISTALL, .LIST 

1139 LIST 

1140 .ENOM 

1141 

1142 


3¢ 
MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 


3 

1144 ; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

1145 ; SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

1146 ; FORCER TO 177777 

ped ; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
t- 

1149 .MACRO FORCEXIT TAG 

1150 “NLIST 

1151 .IIF NOF LISTALL, .NLIST 

1152 LIST 

1153 MOV FORCER,FORCER :IS FORCER NEGATIVE? 

1154 BMI TAG ;BR IF YES 

1155 .NLIST 

1156 .IIF NOF LISTALL, .LIST 

1157 “LIST 

1158 “NOM 

1159 + 

1160 MACRO TO INCREMENT ERROR COUNTS 

1162 -MACRO NEXT. ERRNO 

1163 “NLIS 

1164 bah. tir NOF LISTALL, .NLIST 

1165 ERRNO=ERRNO+ 

1166 333.IIF NOF LISTALL, .LIST 

1167 ' LIST 

1168 .ENOM 

1169 


1170 s¢ 
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SPECIAL MACROS AND OPDEFS. ; 


1171 sMACRO TO PERFORM XOR 
1172 a 


1174 -MACRO XOR A.B 
MOV 


1176 BIC 6,(SP) 

1177 BIC A.B 

1178 BIS (SP)+.B8 
.ENOM 


EN=0 3 INITIALIZE ERROR NUMBER 
1182 .SBTTL FORCER - FORCE ERROR FLAG 


3 
1185 3; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TY; ; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

; 


8 
1189 002146 000000 FORCER: : 0 ; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
90 3; - BY THE MACRO “IFERROR”). AN ERROR NEED NOT - 
3; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


KS 
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yt DAT SECTION SEQ 36 
i139 .SBTTL GLOBAL DATA SECTION 
1198 see 
1199 3 THE GLOBAL DATA a CONTAINS DATA THAT ARE USE” 
1200 3IN MORE THAN ONE TEST 
1201 s-- 
1202 
1203 ’ 
1204 3THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
coos sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
1207 002150 000000 EPRTSW: : -WORD O sPRINT SWITCH 
1208 002152 000000 UNITN: : -WORD O sUNIT @ UNDER TEST. 
1209 002154 000000 QVP:: -WORD O sQUICK VERIFY FLAG. 
1210 002156 000000 CSRADODR: : -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 
1211 002160 000224 IVEC:: -WORD 224 S INTERRUPT VECTOR 
1212 002162 000200 IPRI: -WORD PRIO4 s INTERRUPT PRIORITY. 
1213 002164 000000 TSTCNT:: -WORDB O sNUMBER OF TESTS RUN IN THIS PASS 
1214 002166 000000 LOOPCNT: : WORD O S REMAINING ITERATION Me ed - TEST 
1215 002170 000000 DEVCNT: : -WORD O sNUMBER OF DEVICE UNDER T 
1216 002172 000000 FATFLG:: -WORD O iSET IF FATAL ERROR IS DETECTED IN TEST 
1217 002174 000000 INTRECV:: -WORD O 3SET IF TAPE INTERRUPT WAS RECEIVED 
1218 002176 000000 BENBSW: : -WORD O sBUFFER ENABLE SWITCH SW O=OFF;1=0N 
1219 002200 000000 EXPD: : -WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 
1220 202 000000 RECV:: -WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
1221 002204 000000 ERRHI:: -WORD O sHIGH ADORESS MEMORY ERROR 
1222 002206 000000 ERRLO:: -WORDB O :LOW ADDRESS MEMORY ERROR 
1223 002210 RAMDATA: : -BLKW 16. sOATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
1224 002250 000000 RAMSIZ:: -WORD O ;RAM DATA SIZE FOR PRAMPKT ROUTINE 
1225 002252 000000 RCVHIADD: : -WORD O sRECEIVEO BUFFER HIGH ADDRESS 
1226 002254 000000 RCVLOADD: : -WORD O sRECEIVED BUFFER LOW ADDRESS 
1227 002256 000000 COUNT: : -WORDB O sTEST COUNT PATTERN 
1228 002260 000000 DATA:: -WORD O sTEST DATA: 
1229 002262 000000 TSTFLAG: : -WORD O ;TEST FLAG WORD 
1230 002264 000000 TSTPTR:: -WORD O sTSTBLK POINTER 
1231 002266 000000 PRMNO: : -WORD O sPRINT ROUTINE TEMP 
1232 002270 XPMSG: : -BLKB 100. sEXPECTED MESSAGE BUFFER DATA 
1233 002434 RECMSG: : -BLKB 100. sRECEIVED MESSAGE BUFFER DATA 
1234 002600 TMPBFR: : -BLKB 80. 3s TEMPORARY STORAGE FOR PRINT 
ite 002720 000000 MESBFA: -WORDB O sSTORES ADORESS OF MESSAGE BUFFER FOR ERR PRT 
1237 002722 000000 FLLTSW:: -WORD O :0=1ST PASS, NON-ZERO= OTHER (FAULT MES) 
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peter K Pst BaF ye ARNE CRO M1200 20 84 08:13 PAGE 28 SEQ 37 
1239 .SBTTL TSTBLK - TEST DATA TABLE 
1240 
1241 3+ 
1242 3 
= ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
3 
1245 :IN SEQUENCE THE DATA IS: 
1246 3 
1247 3 ALL ZEROS 
1248 3 ALL ONES 
1249 3 WALKING ONES 
1250 3 WALKING ZEROS 
1251 3 ALTERNATING ONES AND ZEROS 
1252 3 
1253 8° 
1254 
1255 002724 TSTBLK:: 
1256 002724 -WORD O sALL ZEROS 
1257 002726 177777 . WORD 177777 ;ALL ONES 
1258 002730 000001 -WORD BITO sDATA FOR WALKING ONES 
1259 002732 000002 -WORD BIT1 
1260 002734 000004 -WORD BIT2 
1261 002736 000010 -WORD BITS 
1262 002740 -WORD BIT4 
1263 002742 000040 -WORD BITS 
1264 002744 000100 -WORD BIT6 
1265 002746 -WORD BIT7 
1266 002750 000400 -WORD BITS 
1267 002752 001000 -WORD BITS 
1268 002754 002000 -WORD BIT10 
1269 002756 004000 -WORD BIT11 
1270 002760 010000 -WORD BIT12 
1271 002762 020000 -WORD BIT13 
1272 002764 040000 -WORD BIT14 
1273 002766 -WORD BIT15 
1274 002770 177776 . WORD tCBITO ;DATA FOR WALKING ZEROS 
1275 002772 177775 . WORD tCBIT1 
1276 002774 177773 . WORD tCBITe2 
1277 002776 177767 WORD tCBITS 
1278 003000 177757 - WORD tCBIT4 
1279 003002 177737 . WORD tCBITS 
003004 177677 . WORD tCBIT6 
1281 003006 177577 . WORD tCBIT7 
1282 003010 177377 . WORD tCBITS 
1283 003012 176777 . WORD tCBIT9 
1284 003014 175777 .» WORD tCBIT10 
1285 003016 173777 . WORD tCBIT11 
1286 00 167777 .WORD tCBIT12 
1287 003022 157777 . WORD tCBIT13 
1288 003024 137777 . WORD tCBIT14 
1289 003026 077777 . WORD tCBITi5 
1290 003030 125252 . WORD 125252 sALTERNATING ONES, ZEROS 
1291 003032 052525 WORD 052525 sALTERNATING ONES, ZERO NPPOSITE FROM ABOVE 


1292 003034 TBLEND==. 


M3 


KHA TK- Fi F a4 MACRO M -APR - : Pp 
EZ TKHA Kt BEN ey ENE CRO M1200 20 84 08:13 PAGE 29 SEQ 38 
a4 -SBTTL GLOBAL ENVIRONMENT STORAGE 
1 3 
— sSTORAGE FOR DEVICE REGISTERS 
3 
1298 003034 000000 100000 000000 DUMMY: 0,100000,0,0 sOUMMY DEVICE REGISTERS... 
1299 003044 000000 000000 000000 0,0,0,0,0,0,0,0 
ety 3...-FOR MULTI-UNIT CHECKOUT. 
1 
1302 
1303 003064 000000 DUFLG:: WORD s"DROPPED UNIT” FLAG. 
1304 sINHIBITS CODE IN “CLEAN-UP”. 
1305 003066 000000 NODEV: WORD sFLAG TO SAY NO DEVICE. 
1307 003070 000000 TEMP1: .» WORD :SOME TT’P LOCATIONS. 
1308 003072 000000 


sXXDP+ COMM BLOCK POINTER. 


o 
t eoooo00o oc SO 


1310 003076 000000 FREE:: . WORD 31ST FREE MEMORY ADDRESS... 
1311 003100 000000 FRESIZ:: «WORD 3...AND SIZE CIN WORDS). 
1312 003102 000000 FREEHI: 4 sLAST WORD IN FREE SPACE 
1313 003104 000000 KTFLG:: . WORD sKT11, MEM AVAIL FLAG - 
1314 3- .WORD © = <24K OR NO KT - 
1315 3- NZ = >24K AND KT. 
1316 003106 000000 KTENABLE: : . WORD 3SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
1317 003110 002000 PST32W:: . WORD 332W BLOCK ADDRESS FOR 32k START 
1318 003112 000000 SIFLAG:: .WORD 0 : 
1319 003114 000000 BADDAT: : -WORD 0 s;ACTUAL DATA 
1 003116 000000 GDDAT: : -WORD O sEXPECTED DATA 
1321 003120 000000 LOOPFL: : .WORD 0 
1 003122 CTAB:: CONFIGURATION TABLES. 
1323 003122 000000 CTABM: : -WORD 0 s;CONFIG WORK. 
1324 003124 000000 -WORD 0 
1325 003126 000000 -WwORD O 
1326 003130 000000 .WORD 0O 
1327 003132 177777 -WORD -1 ;END OF MEM TABLE. 
1328 003134 CT 2: 
ieee sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
a 
1331 ; re) “ UNIT NOT TESTED 
1332 3 1 s UNIT ONLINE, NO ERRORS 
1333 ; 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXxx ERRORS 
1334 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1335 ; 160001 = UNIT DROPPED, NOT IDOLE AT START 
144 ; 14XXXX = UNIT DROPPED, ENCOUNTERED XXXX ERRORS 
3 - 
1338 003134 ERTABL: .BLKW 64, 
1359 003334 000000 ERTABE: .WORD O 
1341 003336 000000 SKIPT: .WORD 0 31=SKIP SUBTEST O=NO SKIP OF SUBTEST 


ZTKHA TK-25 FRT 
OBAL TEXT MESS 


Ake FUNC @4 


124 113 


103 132 


12 10 
102 111 
123 103 
122 115 
116 130 
116 102 
102 111 
102 111 
123 123 
117 106 
102 111 
102 111 
102 111 
102 111 
102 111 
102 111 
124 123 
124 123 
040 040 
045 101 
045 101 
045 101 
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-SBTTL GLOBAL TEXT MESSAGES 


soe 
: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

3°° 


3¢ 
sNAMES OF DEVICES SUPPORTED 
g° 


DEVTYP <TK-25> 
LSDVTYP:: 
oss -ASCIZ /TK-25/ 
- EVEN 


3¢ 
s TEST DESCRIPTION 


nee DESCRIPT <CZTKHA TK-25 FRT END FUNC 04> 
124 ~ sASCIZ /CZTKHA TK-25 FRT END FUNC 04/ 


3¢ 
s;B8IT TO ASCII CONVERSION FOR TSSR REGISTER 
i- 


003453 TSSRBIT:: -WORD 1$,2%,3$,4%,5%,6$,7%,8% 
003515 -WORD 9$,10$,11%,12$,13$%,14$,15$,16$ 

000 18%: ASCIZ ‘SC’ 

105 2s: ASCIZ ‘BIE 

105 3%: -ASCIZ ‘SCE’ 

122 4%: -ASCIZ ‘RMR’ 

115 58: ~ASCIZ ‘NXM’ 

101 6%: -ASCIZ ‘NBA’ 

124 7%: -ASCIZ ‘BITS’ 

124 8%: -ASCIZ ‘BITS’ 

122 9%: ASCIZ ‘SSR’ 

114 10%: -ASCIZ ‘OFL' 

124 11%: -ASCIZ ‘BITS' 

124 12%: -ASCIZ ‘BIT4' 

124 13%: -ASCIZ ‘BITS’ 

1? Ss «148: -ASCIZ ‘BIT2' 


-EVEN 
123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
125 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
116 NXR; -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
040 NXRX: -ASCIZ /#A ADDRESS: #06/ 
040 TSSX; -ASCII /#A TSBA,TSSR EXP‘'D: #068A,8058N/ 
040 -ASCIZ /#A TSBA,TSSR REC'D: #068A,806/ 


SEQ 39 


CZTKHA TK-25 FRT END FUNC 04 
GLOBAL TEXT MESSAGES 


116 
040 
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FUSI: 


-ASCII 
A 


-ASCIZ 
TR: 


/SNBA/ 
7 UNEXPECTED INTERRUPT/ 

/ as tnTeRRUPT E EXPECTED, Not RECEIVED/ 
7 60 INTERRUPT WAS GENERATED/ 

7 INTERRUPT FAULT/ 


PC: s0esA. TSBA; #06/ 
4 “BUS-INIT” DION’ T INITIALIZE = ea 
4 “SOFT-INIT” OION’T INITIALIZE THE OPU/ 
4 “BUS-RESET” OION’'T INITIALIZE THE OPU/ 


4/4 
/aN/ 
/@A EXP'D: SO68A, REC'D: #06/ 


/ONGA EXP’'D: REC'D: SOSA, #06/ 
/@A REGCW) WRITTEN’ TO: SO068A REG(R) READ; EXP’D: SO6SA, REC'D: #06/ 
neers "RAM Contents Do Not Match Packet Sent’ 
CONFIG DOESN'T MATCH MFG. MASTER/ 
‘wire CHARACTERISTICS Fai led’ 
‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
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1420 -SBTTL GLOBAL ERROR REPORT SECTION 
Fe 
qe 
1423 s THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
1424 s CALLS THAT ARE USED IN MORE THAN ONE TEST. 
ace s ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
gee 
1427 
1428 005202 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005202 NXRERR: ; 
1429 005202 PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 
005202 013746 003066 MOV NODEV, -(SP) 
005206 012746 003701 MOV xX, -CSP) 
005212 012746 000002 MOV #2, -(SP) 
005216 010600 SP, 
104415 TRAP CS8PNnTx 
00S222 062706 000006 ADO #6, SP 
1430 005226 004737 005234 JSR PC EXTEND s PRINT EXTENSION IF REQUIRED. 
1431 005232 ENOMSG 
005232 L10002: 
005232 104425 TRAP CSMSG 
1432 
1433 
1434 3 
1435 s THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
eens : TO ANY OF THE ABOVE ERROR SIGNATURES. 
1438 005234 005727 EXTEND: TST CPC )> 
1439 005236 000000 EXTA: 0 s © = NO EXTENSION. 
1 005240 001402 BEQ 18 
1441 005242 004777 177770 JSR PC .GEXTA s APPEND EXTENSION TEXT. 
1442 005246 18: PRINTX @NULCR ; PRINT A BLANK LINE 
005246 012746 004432 MOV @NULCR, -( SP) 
005252 012746 000001 MOV #1, -(SP) 
005256 010600 MOV SP ,RO 
005260 104415 TRAP CSPNTX 
005262 062706 000004 ADO 04, 
1443 005266 000207 RTS PC 


D4 
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eae -SBTTL PRITSSR - PRINT TSSR CONTENTS 
144 
1448 3° 
1449 3 
1450 sROUTINE TO OISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
1451 sTHE TSSR REGISTER. THIS ns A ga IS NORMALLY CALLED ONLY 
pi} ~ A MESSAGE PRINTING ROUTI 
1454 T INPUTS: 
1455 3 
wear 3 Ri CONTENTS OF TSSR 
Q 
pind sSUBORDINATE ROUTINES: 
8 
vena 3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
F o 
1462 3- ~ 
1463 
1464 005270 PRITSSR: 
1465 005270 SAVREG sSAVE GENERAL REGISTERS 
1466 005274 010104 MOV R1,R4 sSAVE THE TSSR CONTENTS 
1467 005276 PRINTB @TSSRFOR,R4S sPRINT THE CONTENTS OF TSSR 
005276 10446 MOV 4,- ) 
005300 012746 006112 MOV @TSSRFOR, -(SP) 
012746 MOV @2,- 
005310 010600 MoV ° 
005312 104414 TRAP CsPNTB 
005314 062706 000006 ADD @6.,SP 
1468 005320 010400 MOV R4,RO sGET TSSR BACK FOR CHKAMB 
1469 005322 004737 016720 JSR PC .CHKAMB 3s ARE ages get AMBIGUOUS ? 
1470 005326 103410 Bcs 53 sBRANCH IF NOT 
1471 005330 PRINTX @AMBTSSR sSHOW CONTENTS ARE AMBIGUOUS 
005330 012746 006332 MOV @AMBTSSR, -( SP) 
005334 012746 000001 MOV #1.- 
005340 010600 MOV 
005342 104415 TRAP CSPNTX 
005344 062706 000004 ADD @4,SP 
1472 005350 010403 58: MOV R4,R3 sCONTENTS OF TSSR 
1473 005352 042703 001476 BIC @HIADOR !FATERR! TERCLS,R3 sCLEAR ALL MULTIPLE BIT FIELDS 
1474 005356 001434 BEQ 208 3NO BITS ARE SET 
1475 005360 012702 002600 MOV @TMPBFR ,R2 s TEMPORARY ASCII BUFFER 
1476 005364 012701 003404 MOV @TSSRBIT.R1 sASCII EQUIVALENT OF BITS 
1477 005370 005703 108%: TST R3 sREMAINING BITS TO CONVERT 
1478 005372 001413 BEQ 158 sBRANCH WHEN ALL ARE DONE 
1479 005374 000241 cic sCLEAR CARRY FOR SHIFT 
1480 005376 006103 ROL RS sSHIFT NEXT BIT TO CARRY 
1481 005400 103006 Bcc 138 sBRANCH IF BIT NOT SET 
1482 005402 011100 MOV (R1),RO iPOINTER TO ost DEFINITION 
1483 005404 112022 118: MOVE (RO)D+, CR2)> sMOVE ASCIZ TO BUFFER 
1484 005406 001376 BNE 118 sMOVE ALL BIT 1s 
1485 005410 112762 000054 177777 MOVB @',,-1€R2) s INSERT A COMMA TO TERMINATE 
1486 005416 005721 138: TST CR1)e sPOINT TO NEXT DESCRIPTION 
1487 005420 000763 BR 108 3sGET THE REMAINING BITS 
1488 005422 105042 15%: CLRB -(R2) s TERMINATE THE LINE 
1489 005424 PRINTX @TSSOEF ,@TMPBFR sPRINT THE BIT DEFINITIONS 
005424 012746 002600 MOV @TMPBFR, -( SP) 


005430 012746 006503 MOV @TSSDEF , -( SP) 
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PRITSSR - PRINT TSSR CONTENTS 
005434 012746 000002 MOV #2, -CSP) 
005440 010600 MOV SP ,RO 
005442 104415 TRAP CS8PNTX 
s000 005444 062706 000006 ADD #6 ,SP 
1491 005450 0104035 208: MOV R4,R3 sGET THE TSSR CONTENTS 
1492 005452 042703 177761 BIC @tCTERCLS RS sCLEAR ALL BUT TERMINATION 
1493 005456 016303 0063574 MOV TCOCOD(R3),RS sGET THE TERMINATION CODE MEANING 
1494 PRINTX @TCOASC,RS sPRINT THE TERMINATION CODE 
005462 010346 MOV R3, -C SP) 
005464 012766 006175 MOV @TCOASC, -( SP) 
005470 012746 000002 MOV @2,-C(SP) 
005474 010600 MOV SP, 
005476 104415 TRAP CSPNTX 
00S 062706 000006 ADO . 
1495 005504 010405 MOV R4,RS sTSSR CONTENTS AGAIN 
1496 005! 042703 177717 BIC @tCFATERR RS sCLEAR ALL BUT FATAL TERMINATION 
1497 005512 001421 BEQ 253 sD0N‘'T PRINT IF ZERO 
1498 005514 0062035 ASR R3 
1499 005516 0062035 ASR R3 
1500 005: 006203 ASR R3 sALINE TERMINATION CODE FOR INDEX 
1501 005522 016303 006734 MOV TSFCOOCR3),RS sGET THE FATAL TERMINATION CODE 
1502 005526 PRINTX @TFCASC,RS sPRINT THE FATAL TERMINATION CODE 
005526 010346 MOV R3, -C(SP) 
005530 012746 006234 MOV @TFCASC, -(SP) 
005534 012746 000002 MOV #2, -(SP) 
005540 01 MOV SP ,.RO 
005542 104415 TRAP CSPNTX 
005544 0627 000006 ADD #6 ,SP 
1503 005550 012737 000031 002172 MOV #25. ,.FATFLG sOROP THIS UNIT AFTER ERROR MESSAGE 
1504 005556 0104035 258: MOV R4,RS sGET TSSR CONTENTS 
1505 005560 042703 176377 BIC @tCHIADOR .R3 sCLEAR ALL BUT EXTENDED ADDRESS 
1506 005564 001411 BEQ 308 sD0N‘'T PRINT IF ZERO 
1507 005566 PRINTX @TEXASC,RS sPRINT THE E? TENDED ADORESS BITS 
005 010346 MOV R3,-CSP) 
005570 012746 006132 MOV @TEXASC, -( SP) 
005574 012746 000002 MOV #2, -(SP) 
005600 010600 MOV SP .,.RO 
005602 104415 TRAP CSPNTX 
005604 062706 000006 ADO @6 SP 
1508 005610 022704 100210 308; CMP #100210 ,R4 sCHECK FOR MEDIA ERROR 
1509 005614 1 BNE 318 3BR, IF PROBABLY NOT TAPE ERROR 
1510 005616 012737 006021 002150 MOV #€PRTS,,EPRTSW s“PROBABLY MEDIA RELETED ERROR - BAD TAPE” 
1511 005737 002150 318: TST EPRTSW sCHECK FOR THE SWITCH EMPTY 
1512 005630 001003 BNE 3108 *BR, IF SWITCH IS NOT EMPTY 
1513 005632 012737 005676 002150 MOV @€PRT1,EPRTSW sSET SWITCH TO DEFAULT 
1514 005640 013737 002150 005650 310%: MOV EPRTSW, S2%e2 sPUT REAL SWITCHABLE MESSAGE IN PLACE 
1515 005646 328; PRINTB @€PRT1 sPRINT THE ERROR MESSAGE 
005646 012746 005676 MOV @€PRT1, -( SP) 
005652 012746 000001 MOV #1, -(SP) 
005656 010600 MOV SP, 
005660 104414 TRAP CsPNTB 
005662 0627: 000004 ADD @4,SP 
1516 005666 012737 005676 002150 MOV #EPRT1,EPRTSW sRESET TO NORMAL ERROR POINTER 
tH 005674 000207 RTS PC sRETURN TO CALLER 
1519 005676 116 045 EPRT1: .ASCIZ ‘SNA eeeeeCHECK TRANSPORTesssenS’ 


Gz TKHA TK-25 FRT 
ITSSR - PRINT T 

1520 005737 045 
1521 1 045 
1S22 006i12 045 
1523 006132 04S 
1524 006173 045 
1525 006234 045 
1526 006303 045 
1527 006332 045 
1528 

1529 006374 006414 
1530 006414 116 
1531 006437 124 
1532 006465 124 
1533 006507 106 
1534 006527 122 
1535 006611 122 
1536 125 
1537 006704 106 
1538 

1539 

1540 006734 006744 
1541 006744 111 
1542 007000 122 
1543 007011 102 
1544 007055 122 
1545 


SSR CONTENTS 
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045 EPRT2: .ASCIZ ‘sSNSA seeeeCHECK PARITY SWITCH IN TRANSPORTeseeenS' 
045 EPRTS: .ASCIZ ‘SNA seeeePQOSSIBLE MEDIA RELATED ERROR - BAD TAPEseseaeS’ 
045 TSSRFOR: .ASCIZ ‘sNSA TSSR = 806’ 

045 TEXASC: -ASCIZ ‘sSNSBA Extended Address Bits = #06’ 

045 TCOASC: -ASCIZ ‘SNSA Termination Class Code = sT’ 

045 TFCASC: -ASCIZ ‘sNSA Fatal Termination Cless Code = sT’ 
045 TSSDEF: .ASCIZ ‘sNSA TSSR Bite Set: sT' 

045 AMBTSSR: evn -ASCIZ ‘sSNA TSSR Contents Are Ambiguous’ 

006465 TCOCOOD: .WORD 1%,2¢,3%,4%,5%,6%,7%,8$% 

162 18: -ASCIZ ‘Normal Termination’ 
162 28: -ASCIZ ‘Termination Condition’ 
160 38: -ASCIZ ‘Tape Status Alert’ 
156 48: -ASCIZ ‘Function Reject’ 
143 58: -ASCIZ ‘Recoverable Error - Tape Position One Record Down’ 
143 68: ASCIZ ‘Recoverable Error - Tape Was Not Moved’ 
162 7%: -ASCIZ ‘Unrecoverable Error’ 
164 8$: -ASCIZ ‘Fatal Controller Error’ 
EVEN 
164 18: -ASCIZ ‘Internal Diagnostic Failure’ 
163 28: -ASCIZ ‘Reserved’ 
163 38: -ASCIZ ‘Bus Interface or Sanity Check Error’ 
163 4%: .ASCIZ ‘Reserved’ 
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IPKT - BRINT THE ADDRESS/CONTENTS. OF EormaNo PACKET sae 


ee -SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
1549 3° 
1550 sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
rat sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 
3 
1553 3 INPUT: 
1554 Fy 
1555 ; RO NUMBER OF WORDS IN PACKET 
1556 : R3 HIGH ORDER COMMAND PACKET ADDRESS 
rit 3 Ra ADDRESS OF COMMAND PACKET 
3 
TH 3 NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
ge 
1561 
1562 007066 PRIPKT:: 
1563 007066 SAVREG sSAVE THE REGISTERS 
1564 007072 010005 MOV RO,RS sSAVE NO. OF te PACKET 
1565 007074 005737 003106 TST K TENABLE sABOVE 28K UNDER TEST? 
1566 007100 001001 BNE 10$ 36R IF YES 
1567 007102 005003 CLR R3 3SET HIGH ORDER ADDRESS TO 0 
1568 007104 010301 108: MOV R3,R1 :COPY HIGH ORDER ADDRESS 
1569 007106 01 MOV R4, :GET LOWER ADDRESS 
1570 907110 006100 ROL RO sSHIFT BIT 15 INTO C BIT 
1571 007112 006101 ROL sAND INTO HIGH ORDER 
1572 007114 PRINTB @PKTADD,R1,R4 }PRINT PACKET ADDRESS 
007114 010446 MOV R4,-C(SP) 
007116 010146 MOV R1,-CSP) 
007120 012746 007272 MOV @PKTADD, -C SP) 
007124 012746 000003 MOV @3,-CSP) 
007130 010600 MOV RO 
007132 104414 TRAP CSPNTB 
007134 062706 000010 ADD #10,SP 
1573 007140 010300 158: MOV R3,RO sGET HIGH ORDER ADDRESS 
1574 007142 001404 BEQ 20% 36R IF NOT ABOVE 28K. 
1575 007144 010401 MOV R4,R1 3GET LOW ORDER ADORESS 
1576 007146 004737 020274 JSR PC.,SETMAP 3SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
1577 007152 010004 MOV aR4 3sGET RETURNED PARG6 ADDRESS BIAS 
1578 007154 005001 208: CLR 3; SAVE 
1579 007156 012402 25% MOV R4)+,R2 sGET PACKEY CONTENTS 
1580 007160 PRINTB OPKTFRM,R1,R2 sPRINT THE DATA 
007160 010246 MOV R2,-C(SP) 
007162 010146 MOV R1,-CSP) 
007164 012746 007234 MOV @PKTFRM, -CSP) 
007170 012746 MOV #3, -C(SP) 
007174 O1 MOV SP RO 
007176 104414 TRAP CsPNTB 
007200 062706 000010 ADD #10,SP 
1581 007204 INC 1 sNEXT WORD NUMBER 
1582 007206 020105 CMP R1,R5 sDO0NE ALL PACKET WORDS? 
1583 007210 002762 BLT 25% 3LOOP TILL ALL DONE 
1584 007212 PRINTB @PKTNEW sJUST A COUPLE NEW LINES 
007212 012746 007327 MOV @PKTNEW, -CSP) 
007216 012746 000001 MOV #1,-CSP) 
007222 010600 MOV SP ,RO 
007224 104414 TRAP CsPNTB 
007226 062706 000004 ADD 04,SP 


CZTKHA TK-25 FRT END FUNC 04 
PRIPKT 


1585 007232 000207 
1586 


1587 007234 
1588 007272 
1589 
1590 007327 
1591 
1592 


045 
045 


045 


116 
116 


116 


H4 


MACRO M1200 20-APR-84 08:13 PAGE 34-1 
- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


045 PKTFRM: 
045 PKTADD: 


045 PKTNEW: 


RTS 


-ASCIZ 
-ASCIZ 


-ASCIZ 
- EVEN 


PC sRETURN 


‘SNSA Packet Word OSDISA = #06‘ 
‘SNSA Packet Address «= #01805’ 


‘NNSA! 


SEQ 46 


14 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 35 SEQ 47 
PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
rt . -SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
1596 3¢ 
1597 ; 
1598 :PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
4 sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
3 
1601 : INPUTS: 
1602 3 
1603 3 R1 RECEIVED DATA 
1604 3 Re EXPECTED DATA 
1605 3 
1606 sOUTPUT: 
1607 3 
1608 : RO XOR OF EXPECTED/RECEIVED DATA 
1609 3 
1610 3- 
1611 
1612 007340 PRIBXOR: : 
1613 007340 SAVREG sSAVE THE REGISTERS 
1614 007344 010203 MOV R2,R3 sEXPECTED DATA 
1615 007346 xOR R1,R3 3sFORM THE EXCLUSIVE OR 
1616 007356 012700 177400 MOV @tC<377>,RO sBYTE MASK 
1617 007362 040001 BIC RO,R1 sSAVE LOW BYTE RECV 
1618 007364 040002 BIC RO,R2 sSAVE LOW BYTE EXPD 
1619 007366 040003 BIC RO,.R3 sSAVE LOW BYTE XOR 
1620 007370 PRINTB @XORBFOR, R2,R1, RS sPRINT THE MESSAGE 
007370 010346 MOV R3,-CSP) 
007372 010146 MOV R1,-CSP) 
007374 010246 MOV R2, -CSP) 
007376 012746 007422 MOV @XORBFOR, -( SP) 
007402 012746 000004 MOV 04,-CSP) 
007406 010600 MOV oR 
007410 104414 TRAP CSPNTB 
007412 062706 000012 ADD #12,SP 
1621 007416 010300 MOV R3,RO :RO HAS XOR ON RETURN 
pre 007420 000207 RTS PC sRETURN TO CALLER 
“oS 007422 045 116 045 XORBFOR: even -ASCIZ ‘sSNA EXPD: SO3S8A RECV: SO38A XOR: 803‘ 


pe Aha TK-25 FRT_ END F 


- PRINT EXPD, RECV PAND 


007540 
000004 
000012 


116 


J4 


MACRO M1200 20-APR-84 08:15 PAGE 36 


xOR 


3¢ 


- SBTTL 


PRIXOR - PRINT EXPD, RECV AND XOR 


3 
sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 


sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
; 
s INPUTS: 


045 XORFOR: 


R1 
Re 


-ASCIZ 


RECEIVED DATA 
EXPECTED DATA 


XOR OF EXPECTED/RECEIVED DATA 


sSAVE THE REGISTERS 
R2,R3 sEXPECTED DATA 
R1,R3 sFORM THE EXCLUSIVE OR 
@XORF OR .R2. Ril, R3 sPRINT THE MESSAGE 


sRO HAS XOR ON RETURN 
sRETURN TO CALLER 


‘@NSA EXPD: SO6S8A RECV: SO6S8A XOR: 806’ 


SEQ 48 


CZTKHA TK-25 FRT END FUNC 04 


PRIEQU 


007606 
007606 
007612 


000207 


KK4 


MACRO M1200 20-APR-84 08:13 PAGE 37 
- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


045 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 


3¢ 


; 
sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


; 
s INPUTS: 


3 RO OCTAL VALUE TO CONVERT 

3 R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

i: 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
* 


;PRINT CONTROLLER RAM ADDRESS. 
ae ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


3 SINPUTS: 


; R4 RAM ADDRESS 
> 
3° 
PRIRAM 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4,-CSP) 
MOV oR OR, -C(SP) 
MOV @2,-(SP) 
MOV SP, 
TRAP CsPNTB 
ADD #6, SP 
RTS PC sRETURN 
RAMF OR : — ‘NSA CONTROLLER RAM ADDRESS = 0c’ 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


* 


;PRINT MEMORY ADORESS 
“tea ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


IMPLICIT INPUTS 


ERRHI - HIGH ORDER ADDRESS 


; 
3 
: 
: ERRLO - LOW ORDER ACDRESS 


SEQ 49 


CZTKHA TK-25 FRT END FUNC 04 
PRIADD - PRINT MEMORY ERROR ADDRESS 


002204 
002206 


007756 
000003 


000010 


116 


002204 
002206 


010072 
000003 


000010 


116 


MACRO M1200 20-APR-84 


045 PRIAO: .ASCIZ 


- SBTTL 


3* 


L4 


08:13 PAGE 37-1 


+SAVE R1-RS UNTIL NEXT RETURN 
ERRHI,RO sGET HIGH ADORESSS 

ERRLO,R1 sGET LOW ADDRESS 

R1,R2 sCOPY LOW ADDRESS 

R1 sSHIFT BIT 15 TO C BIT 

RO sSHIFT INTO HIGH ORDER 
@PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
Re, -CSP) 

RO, -(SP) 
@PRIAO, -( SP) 
@3,-C(SP) 

SP ,RO 

CsPNTB 
#10,SP 

PC sRETURN 


‘SNA MEMORY ERROR ADDRESS = #01805’ 


PRITADD - PRINT MEMORY TEST ADDRESS 


3 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


ERRHI 
ERRLO 


RITADD: 


045 PRITO: .ASCIZ 


IMPLICIT INPUTS 


- HIGH ORDER ADDRESS 
- LOW ORDER ADDRESS 


sSAVE R1-RS UNTIL NEXT RETURN 
ADDRESSS 


ERRHI,RO sGET HIGH 
ERRLO,R1 sGET LOW ADORESS 
R1,R2 sCOPY 


LOW ADDRESS 
sSHIFT BIT 15 TO C BIT 
RO sSHIFT INTO HIGH ORDER 
ed > acta sPRINT MEMORY ADDRESS IN ERROR 


sRETURN 
‘sNSA MEMORY TEST ADDRESS = #01805’ 


SEQ SO 


eTKHA TK - 


010134 


010242 


012737 


012727 
000000 
013727 
000000 


005367 
001375 


000764 
140010 


010322 
100000 
010322 
000400 
010320 
177776 
017124 
000250 


002116 
177772 


M4 


ERT MACRO M1200 20-APR-84 08:13 PAGE 38 
ACE RECORDS {FORWARD AND AND REVERSE) COMMAND 


- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


-SBTTL SPACE 


3¢ 


° 
sROUTINE TO ISSUE A SPACE RECORDS 


sCOMMAND (FORWARD OR REVERSE) 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 


3 

3 INPUT: 

3 

3 R3 NUMBER OF RECORDS TO BE SPACED OVER 
2 BIT1S CONTROLS DIRECTION 

3 BITiS = O IS oat 

3 BIT1S = 1 IS REVERSE 

3 RS FIRST DEVICE UNIBUS ADDRESS 

3 

3 REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
3 

;OUTPUT: 

3 

8 CARRY SET - SPACE RECORDS COMMAND OK 

3 CLR - SPACE RECORDS FAILED 

8 

3 

3 RO THE CONTENTS OF R4 IS MOVED TO RO 
3 

3 

$b 

3 

3 

3 

; 

3 

F 

3 


SPACE: 
SAVREG 
010330 MOV #500. , SDELAY 
010320 MOV #140010, 80$ 
TST R3 
BMI S$ 
MOV R3,90$ 
BR 10$ 
S$: BIC #68IT15,R3 
MOV R3,90$% 
010320 BIS *BITS,80$ 
10%: MOV 080% ,R4 
MOV R4, TSDBCRS) 
15%: JSR PC, ,WAITF 
8csS 20% 
DELAY 250 
-WORD O 
MOV LSOLY,(PC)-+ 
-WORD O 
DEC -6(PC) 


BNE 74 


sSAVE THE y “pes REGISTERS 
sSET UP DELA 

sSET UP COMMAND SPACE FORWARD 
sCHECK FOR DIRECTION 


9) 
sLOAD UP NUMBER OF RECORDS TO SPACE 
OMMAND 


dO C 
sCLEAR DIRECTION BIT 
sLOAD UP NUMBER OF RECORDS TO SPACE 
sSET REVERSE BIT IN C IND PACKET 
3SET UP R4 WITH PACKET ADDRESS 
sSEND OUT COMMAND 
sWAIT FOR SSR 
38R, IF SSR IS SET AND OK 
sDELAY ABOUT .25 SECONDS 


SEQ 51 


TKHA TK-25 FRT END F 


SBACE 


- SPACE RECORDS 


010310 


005367 
001367 


N4 


MACRO M1200 20-APR-84 08:13 PAGE 36-1 
FORWARD AND AND REVERSE) COMMAND 
177756 DEC -22(PC) 
BNE ee 
010330 DEC SDELAY 
BNE 15$ 
BR 60$ 
208: MOV TSSRCRS),R1 
000200 MOV @SSR ,R2 
258: CMP R2,R1 
BEQ 40$ 
BR 60$ 
40$; SEC 
BR 70$ 
60$: cLC 
70S; 
MOV R4,RO 
RTS PC 


sBUMP DELAY yy DOWN 
s8R, IF MORE DELA 

3B8R IF TROUBLE CARRY = CLEAR 
;READ TSSR 

sSET UP EXPECTED 

sARE THEY OK 

sBR, IF EQUAL = OK 

; TROUBLE EXIT 

eo NO TROUBLE 


sEXI 
sCARRY CLEAR = ERROR 


sPASS PACKET ADDRESS 
sRETURN 


SEQ S2 


BS 


CZTKHA TK 25 FRT END FUNC 04 wy M1200 20-APR-84 06:13 PAGE 39 SEQ 53 
SPACE SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
1618 ’ 
1619 3 
1820 3 
ose sPACKET FOR SPACE COMMAND 
3 
cone 010312 -BLKB 10-<, -TUV2AE7> 
a 
1627 sCOMMAND WORD 
1828 010320 000000 608; WORD 
1829 sNUMBER OF RECORDS TO BE SPACED OVER WORD 
1830 010322 000000 908; WORD 
1831 010324 000000 . WORD 
1832 010326 000000 . WORD 
1833 010330 000000 SDELAY: .WORD 0 sDELAY COUNTER 
1834 -EVEN 


C5 
GATE ™-BALFBTCENRAEW Mr f¥2cs POARI120° 20-APR-04 08:18 PAGE 40 


-SBTTL WRICHR - WRITE CHARACTERISTICS COMMAND 


}ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


8 
s INPUT: 


OUTPUT: 


608: 
708: 


CARRY 


ADORESS OF PACKET FROM TEST 
FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 


SET - - ere CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOF TWARE SUITCHES SET AS FOLLOWS: 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


R3,MESBFA 
708 
TSSRCRS),RO 
PC 


sSAVE THE GENERAL REGISTERS 
sCLEAR BUFFER ENABLE SWITCH 
sSEND OUT COMMAND 

sWAIT FOR SSR 

s6R, IF SSR IS SET AND OK 
s6R IF TROUBLE CARRY = CLEAR 


AD TSSR 
sSET \P EXPECTED 
sWAS OFF LINE SET IN TSSR 
s8R, IF NO OFL SET 
sMAKE THEM LOOK ALIKE 


sExIT 

sCARRY CLEAR = ERROR 
—_ TSSR CONTENTS 
8 


SEQ 54 


DS 


™ BBcEPLOAMPAPL Ene no s"EGARAIB 20° 20-APR-04 08:13 PAGE 41 


-SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 


.) 
1929 010512 
1930 010514 


1939 010532 


000000 
013727 
000000 


010530 
177776 


000550 
017124 


000372 
002116 
177772 
177756 


‘ 
sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 


TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


CALLING SEQUENCE: 


: 
’ DO A SOFT INIT 
3 00 A WRITE CHARACTERISTICS 
é JSR PC RE WIND 
3 
3 INPUT: 
3 
3 RS FIRST DEVICE UNIBUS ADDRESS 
ry 
3 
sOUTPUT 
3 
3 RO THE CONTENTS OF R4 IS PASSED TO RO 
3 
3 
oe 
REWIND: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV @RWPACK .R4 3GET PACKET ADORESS 
MOV R4, TSOBCRS) 3SEND PACKET ADORESS TO EXECUTE 
MOV @ ~oR3 sENOUGH TIME FOR 2400' REEL TO REWIND 
108: JSR PC ,WAITF sWAIT FOR SSR TO SET 
ecs $ sLEAVE WHEN SSR IS SET 
DELAY 250. sWAIT FOR .25 SECONDS 
MOV 250. (PC) 
MOV LSOLY,(PC)> 
DEC -6(PC) 
BNE - 
OEC -22(PC) 
6NE . -20 
OEC R3 sBUMP COUNTER DOWN 
BNE 108 3sKEEP GOING 
CLC sCLEAR CARRY TO SET ERROR 
208: MOV R4,RO sPASS THE PACKET ADDRESS 
RTS PC RE TURN 
. -BLKB 10-<, -TUV2AE7> 
RWPACK; 
. WORD 102010 sPOSTION COMMAND (REWIND) 
. WORE 0 sNOT USED 


SEG 55 


ES 


ES by eee ea Oe pacer’ M1200 20-APR-84 08:13 PAGE 42 


012701 
012702 
005003 


177776 


000027 


- SBTTL 


t¢ 


CKRAM 


- COMPARE RAM TO I/0 PACKET 


8 
sROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


é 
s INPUT: 


SIDE EFFECTS: 


3 


108: JSR 


308: 
000010 002250 503: MOV 


ADORESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


sIMPLICIT OUTPUT: 


TSBAL(RS),(R1) 
(R1)+,(R4A)6 
208 


THE TABLE eo IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10° 8. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 
sADDRESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
sCLEAR THE ERROR FLAG 

sWAIT FOR SSR 

sWAIT FOR SSR TO SET 

sSELECT NEXT RAM ADORESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 

sCOMPARE TO EXPECTED 

sBRANCH IF OK 

sSET ERROR FLAG 

sADORESS OF = _ LOCATION 


sCLEAR CARRY To SHOW ERROR 

3sAND EXIT 

sSHOW GOOD COMPARE 

sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
sRETURN 


SEQ 56 


CZTKHA TK-25 FRT F 
RAMER - RE DISPLAY Seu 


2037 


011014 


077316 


011024 
000003 
000010 
002210 
002250 
177400 
011075 
000002 


000006 


FS 


MACRO 1200 APR - p 
AD AND DISPLAY SELECTED R 20-APR-84 08:13 PAGE 43 


-SBTTL RAMER - READ AND DISPLAY SELECTED RAM 


3¢ 


t 
sROUTINE TO READ THE SELECTED RAM LOCATIONS 


3 

s INPUT: 

3 

3 RS FIRST DEVICE UNIBUS ADDRESS 
3 CONSOLE WILL ALSO BE PRINTED TO 

3 

sIMPLICIT OUTPUT: 

; 

3 THE TABLE RAMDATA IS FILLED WITH THE 
3 DATA HELD IN RAM, 


3 

sSIDE EFFECTS: 
3 

; 

3 - 


RAMER:: 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV RAMRSH,RS sRESET RS TO FIRST DEVICE —_, 
MOV @RAMDATA,R1 sADORESS TO SAVE THE RAM DAT 
MOV RAMHLO.R sBYTE ADDRESS OF THE FIRST RAN DATA 


MOV RAMSIZ,R4 iGET THE RAM SIZE 
AMHLD ,R2 


MOV R4,-C 

MOV Re, -C 

MOV @RAMIOP , -( SP) 

MOV 3, -C ) 

MOV SP ,RO 

TRAP CSPNTX 

ADD #10,SP 

MOV @RAMDATA,R1 sADORESS OF WHERE RAM DATA IS 

MOV RAMSIZ,RS 1 THE SIZE OF THE RAM FIELD READ 
30%: CLR RG sNO EXTRA DATA LEFT OVER 

MOvB (R1)+,R4 sPICK UP BYTE OF RAM DATA 

BIC #177400,R4 sGET RIO OF SIGN EXTEND 

PRINTX @RAMPD,R4 3"010 211 111 222 377 000 123 134 ETC.” 

Vv R4,-CSP) 

MOV OR »- (SP) 

MOV @2,-(SP) 

MOV SP, 


ADD 06, SP 
SOB R3, 308 sLOOP UNTIL ALL PRINTED 


sSET THE SIZE OF THE READ UP 
sWAIT FOR THE SSR TO st 


ADD 1,R2 sADORESS OF THE NEXT RAM hae 
S08 R3,108 sNUMBER OF LOCATIONS COUNTE 


sGET THE STARTING RAM ADORESS 
ores sCALCULATE THE END ADORESS 

SUB #1,R sCORRECT VALUE OF PRINTOUT 

PRINTX enintop 2, eR&4 ;RAM ADDRESS = 10 - 17, ETC. 


SEQ 57 


CZTKHA TK-25 FRT END FUNC 04 


2038 011016 
2039 


2040 011020 
2041 011022 
2042 011024 
2043 011075 
2044 


2045 


116 
101 


G5 


MACRO M1200 20-APR-84 08:13 PAGE 43- 
RAMER - READ AND DISPLAY SELECTED RAM 


SO$: RTS Pc sRETURN 
RAMHLD: .WORD 0 sRAM ADOR HOLDER 1ST ADDRESS 
R i¢) sHOLDS RS FOR LATER 


AMRSH: .WORD 
045 RAMIOP: .ASCIZ ‘SNSA Rem Address (Octal) = SO38A - SO3SN’ 
040 RAMPD: .ASCIZ ‘SA SO3HA ' 


SEQ 58 


H5 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 44 
CKRAM2 - COMPARE RAM TO I/0 CHARACTERISTICS DATA 


SEQ 59 


not -SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
3¢ 

2049 3 

2050 sROUTINE TO READ THE FIRST & OR 10 BYTES FROM RAM 

oes sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
a 

2053 3s INPUT: 

2054 Hy 

2055 3 R4 ADDRESS OF THE CHARACTERISTICS DATA 

oust 3 RS FIRST DEVICE UNIBUS ADDRESS 

2058 sOUTPUT: 

2059 3 

2060 3 CARRY SET - RAM MATCHES PACKET 

2061 F CLR - RAM DOES NOT MATCH PACKET 

2062 3 

2063 : IMPLICIT OUTPUT: 

2064 a 

2065 3 THE TABLE ae IS FILLED WITH THE 

2066 3 DATA HELD IN R 

2067 3 RAMSIZ IS SET 10° 8. OR 10. FOR PRAMPKT ROUTINE 

2068 S 

2069 3SIDE EFFECTS: 

2070 ; 

2071 3 

2072 3- 

2073 

2074 011110 CKRAM2: : 

2075 011110 SAVREG sSAVE THE GENERAL REGISTERS 

2076 011114 012701 002210 MOV @RAMDATA,R1 sADORESS TO SAVE THE RAM DATA 

2077 011120 012702 900167 MOV @RMCHBEG ,R2 sBYTE ADDRESS OF FIRST RAM DATA 

2078 011124 005003 CLR R3 sCLEAR THE ERROR FLAG 

2079 011126 004737 017242 JSR PC.CHKTSSR sWAIT FOR SSR 

2080 011132 004737 017242 108: JSR PC ,.CHKTSSR sWAIT FOR SSR TO SET 

2081 011136 110265 177777 MOvB R2, TSOBHCRS) 3SELECT NEXT RAM ADDRESS 

2082 011142 004737 017242 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

2083 011146 116511 177776 MOVB TSBALCRS).CR1)  ;READ THE RAM DATA 

2084 011152 122124 CR1)+,CR4)> sCOMPARE TO EXPECTED 

2085 011154 001401 BEQ 208% sBRANCH IF OK 

2086 011156 3 INC R3 3SET ERROR FLAG 

2087 011160 208: INC Re sADDRESS OF NEXT RAM LOCATION 

2088 011162 012737 000010 002250 MOV 8. ,RAMSIZ sASSUME NORMAL NOT SET 

2089 011170 020227 000176 CMP R2, @RMCHEND -2 sREACHED END YET ? 

2090 011174 003756 BLE 108 sBRANCH TILL ALL READ 

2091 011176 005703 27%: TST R3 sWAS AN ERROR FOUND ? 

2092 011200 001402 BEQ 30% sBRANCH IF NOT 

2093 011202 000241 a Wg 3CLEAR CARRY TO SHOW ERROR 

2094 011204 000401 BR 50$ sAND EXIT 

2095 011206 000261 308: SEC 3SHOW GOOD COMPARE 

2096 011210 000207 508: RTS PC 3RETURN 


CZTKHA TK-25 FRT END FUNC 04 


CKMSG 


011212 


002252 
002254 
003106 
020274 


002270 
002434 


000002 
000014 


000200 
000016 


I5 


MACRO M1200 20-APR-84 06:13 PAGE 45 SEQ 60 
- COMPARE WRITE CHAR. MESSAGE BUFFERS 


000012 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


3° 


3 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
3 INPUT: 
3 
3 RO , RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
3 R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
sOUTPUT: 
3 
3 CARRY SET - MESSAGE BUFFERS MATCH 
3 ' CLR -MESSAGE BUFFERS DON‘ T MATCH 
3 
s IMPLICIT ourrpr: 
- t 
3 EXPMSG BUFFER IS SET TO EXPD DATA 
3 RECMSG BUFFER IS SET TO RECV DATA 
3 RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
3 RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
3 
3° 
CKMSG: : 
SAVREG 3sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 
TST K TENABLE sTESTING ABOVE 28K? 
BEQ 10% 36R IF NO 
JSR PC ,SETMAP TRE TURN ADDRESS BIASED TO PARG6 IN RO 
MOV RO,R1 sGET RETURNED ADORESS BIASED TO PAR6 
108: CLR R4 sWORD IN BUFFER 
CLR RS sCLEAR ERROR SEEN FLAG 
MOV R2,R5 sGET EXPO BUFFER ADDRESS 


158: MOV CR2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOV (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 


CR2)+,CR1)« sEXPD EQUAL RECV? 
BEQ 25% s6R IF YES 
INC R3 sSET ERROR SEEN FLAG 
25%; ADD @2,R4 sPOINT TO NEXT WORD ADDRESS 
CMP R4,014 sDONE FIRST 7 WORDS? 
BLE 15% :BR IF NO 
BIT @Xx2.EXTF, xST2C(RS)3IS EXTENDED FEATURES SET IN EXPD? 
BEQ 50$ s8R IF NO 
CMP R4, 016 DONE EXTENDED FEATURES WORD? 
BLE 15% s8R IF NO 
SO$: TST R3 tANY ERRORS SEEN? 
BEQ 55% s8R IF NO 
CLC rSET FAILURE 
BR 60$ 
558%: SEC iSET SUCCESS 
60$: RTS PC sRE TURN 


CZTKHA TK - 25 FRT END FUNC 04 
CKMSG2 


011332 


FERS 


3¢ 


J5 


MACRO M1200 20-APR-84 08:13 PAGE 46 
COMPARE EXPD RECV MESSAGE BUF : 


-SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


é 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 
s INPUT: 


Chee ce oe oe os oe os oe or oe oe os Ge Oe os os oe Ge oF 


A. 


5$: 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 


SET - MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON’T MATCH 


IMPLICIT OUTPUT: 


EXPMSG BUFFER IS SET TO EXPD DATA 

RECMSG BUFFER IS SET TO RECV DATA 

RCVHIADO SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
CMP R3, @RECMSG-EXPMSG; 880 IS COUNT ABOVE MAX ALLOWED? 
BLE S$ 3880 BR IF NO 

MOV @RECMSG -EXPMSG, R3,980 

PRINTF #@#DEBUGMSG 3880 

MOV @DEBUGMSG, -( SP) 

MOV #1,-(SP) 

MOV SP,RO 

TRAP CSPNTF 

ADO @4,SP 

MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 

MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 

TST KTENABLE sTESTING ABOVE 28K? 

BEQ 10% sBR IF NO 

JSR PC, SETMAP sRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PAR6 
CLR R4 sWORD IN BUFFER 

CLR RS sCLEAR ERROR SEEN FLAG 

MOVB CR2),EXPMSG(R4) i SAVE EXPD FOR ERROR REPORT 
MOVE (R1),RECMSGC(R4) ;SAVE RECV FOR ERROR REPORT 
CMPB CR2)+,(R1)+ sEXPD EQUAL RECV? 

BEQ 25% 3BR IF YES 

INC RS sSET ERROR SEEN FLAG 

ADD #1,R4 sPOINT TO NEXT BYTE 

CMP R4,R3 sDONE ALL BYTES? 

BGE 50% 7BR IF YES 

BR 15% 300 NEXT BYTE 

TST RS sANY ERRORS SEEN? 

BEQ 55% sBP iF NO 


SEQ 61 


KS 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 46-1 SEQ 62 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 

2207 011454 000241 CLC sSET FAILURE 

2208 011456 000401 BR 60% ‘ 

2209 011460 000261 SS$: SEC sSET SUCCESS 

tt 011462 000207 608: RTS PC sRE TURN 

2212 011464 120 122 117 OEBUGMSG: -ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;aaD 


2213 011554 045 116 04S FERCM: .ASCII /SNSA e00/ 

2214 011565 040 040 124 ERCM: -ASCIZ / TSSR ERROR CODE REC'D + 
2215 011620 056 056 OS6 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT? 
te] 011653 £124 105 123 TINERR: wy /TEST: ...7 


L5 


GRISES "BBE" Bob Mech nescKEEMBUHERE 20-07R-04 00:18. Pace 47 


011676 


004737 
004737 


104423 


005270 
020160 


005270 
000004 


007066 
002720 


014062 


- 
;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
} INPUT: 

; Ri CONTENTS OF TSSR AT ERROR 
}SIDE EFFECTS: 


EXECUTES DROP UNIT TO CEASE TESTING 


BGNMSG SFIMSG 


SFIMSG: : 
JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,.CKDROP sOROP UNIT, IF ALLOWED 
ENOMSG 
L10003: 
TRAP C$mSG 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A COMMAND PACKET € iER THAN GET STATUS COMMAND PACKET. 


3 
: INPUTS: 
; R1 TSSR CONTENTS 
; R4 ADDRESS OF COMMAND PACKET 
° 
3 = 
PKTSSR 
PKTSSR:: 
JSR < PRITSSR ag | THE ges OF TSSR REGISTER 
MOV @4,RO WORDS IN PACKET 
JSR PC ,PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
MOV MESBFA,RO sADDRESS OF MESSAGE BUFFER 
CLR R1 sASSUME NO HIGH MEMORY 
JSR PC,PRMESS sPRINT THE MESSAGE BUFFER ALSO 
ENOMSG 
L10004; 


TRAP C$MSG 
3¢ 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A GET STATUS COMMAND PACKET. 
3 
3; INPUTS: 


: R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


SEQ 63 


M5 


ZTKHA TK- FRT E F a4 MACRO M 20-APR-84 08:13 PAGE 47-1 SEQ 64 
fensco - POMPARE Rep NECY MESSACE BUFFERS 
2270 
2271 011730 BGNMSG PKTGETS 
011730 PKTGETS:: 
2272 011730 004737 005270 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2273 011734 012700 000002 MOV #2,RO0 3NO. WORDS IN GET STATUS PACKET 
2274 011740 004737 007066 JSR PC ,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
2275 011744 ENOMSG 
011744 L10005: 
011744 104423 TRAP CsmMSG 
2276 
2277 
2278 ze 
$44 sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
e 
2281 ; INPUTS: 
2282 3 
2283 Fy R1 TSSR CONTENTS 
2284 3 RE ADDRESS OF COMMAND PACKET 
2285 8° 
2286 
2287 011746 BGNMSG SFFMSG 
011746 SFFMSG: : 
2288 011746 004737 005270 JSR PC ,.PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2289 011752 ENDMSG 
011752 L10006: 
011752 104423 TRAP C$mMSG 
2290 
2291 
2292 .SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
3 
2295 ;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
2296 ;BUFFER FOR ERROR REPORTS 
2297 3 
2298 3 INPUTS: ‘ 
2299 : 
2300 3 R1 CONTENTS OF TSSR 
2301 3 R2 LOW ORDER MESSAGE BUFFER 
2302 ; R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
coos 3 NOTE: R3 IS IGNORED IF KTENABLE FLAG TS CLEAR 
tid 
2305 011754 BGNMSG PKTMES 
011754 PKTMES:: 
2306 011754 004737 005270 JSR PC ,PRITSSR sPRINT CONTENTS OF TSSR 
2307 011760 010200 MOV R2,RO ;LOW ORDER ADDRESS 
2308 011762 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
2309 011764 004737 014062 JSR PC,PRMESS sPRINT THE MESSAGE BUFFER 
2310 011770 ENDMSG 
011770 L10007: 
011770 104423 TRAP C$MSG 


SBIR RARETE 


2325 011772 
011772 


20 
012020 


004737 010022 
016501 000000 
004737 005270 


104423 


012700 000007 
004737 015426 


104423 


ST ADDRESS AND'TS 


NS 


RO M1200 20-APR-84 08:13 PAGE 48 


SR 


» SBTTL 


ADDSSR - PRINT TEST ADDRESS AND TSSR 


3° 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A MEMORY TEST ADDRESS 


; 
s INPUTS: 


- SBTTL 


3¢ 


‘ 
sPRINT ROUTINE 


FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 


ADOSSR 

PC ,PRITADD sPRINT MEMORY TEST ADDRESS 
TSSRCRS),R1 sGET CURRENT TSSR 

PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
C$MSG 


MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 


: 
sIMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG 


MSGEXP 

#7,RO ASSUME NO EXT FEATURES 

PC ,PRMSGE XP ;PRINT EXPO/RECV MESSAGE BUFFERS 
C$MSG 


SEQ 65 


B6 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-64 06:13 PAGE 49 SEQ 664 
FIFEXP - PRINT FIFO EXP/RECV DATA 
2351 -SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
2352 3° 
2353 3 
pty sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
: 
2356 3 Ri - BYTE COUNT 
2357 3 
Sees sIMPLICIT INPUTS: 
: 
2360 ’ EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
+44 3 RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
a = 
2363 012022 BGNMSG FIFEXP 
012022 FIFEXP:; 
2364 012022 PRINTX OF IFIMSG,R1 sPRINT BYTES TRANSFERRED 
012022 010146 MOV R1,-C(SP) 
012024 012746 012074 MOV OF IF iIMSG, -( SP) 
012030 012746 000002 MOV @2,-C(SP) 
012034 10600 
012036 104415 TRAP CSPNTX 
01204C 062706 000006 ADD 06,SP 
2365 012044 PRINTX @F IFQMSG sPRINT HEADER MSG 
012044 012746 012143 MOV OF IFQMSG, -( SP) 
012050 012746 090001 MOV #1,- ) 
012054 010600 MOV e 
012056 104415 TRAP CSPNTX 
012060 062706 000004 ADO e 
2366 012064 010100 MOV R1,RO 3GET BYTE COUNT 
2367 012066 004737 015776 JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
2368 012072 ENDMSG 
012072 L10012: 
012072 104423 TRAP C#MSG 
2369 012074 045 116 045 FIFIMSG: -ASCIZ ‘@NSA NUMBER OF BYTES TRANSFERRED = sD2' 
tag 012143 045 116 045 FIFOMSG: —_ -ASCIZ ‘@NSA FIFO DATA BYTES IN ERROR:’ 


C6 
AASV Ar ™ “Ba TAP SERRE ME nBEr an RES MAE Bur PRAGPR-O* 08:13 PAGE So 


deg -SBTTL MSGSTAT - PRIN] STATUS MEADER AND MESSAGE BUFFERS 
s* 
2376 3 
este sPRINT ROUTINE TO PRIN’ MESSAGE BUFFER EXPD/RECV 
’ 
2379 Hi 
ee sIMPLICIT INPUTS: 
3 
2382 ’ EXPMSG - EXPECTED MESSAGE BUFTER 
2383 ry RECMSG - RECEIVED MESSAGE BUFFER 
2384 3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
oo 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
t- 
2387 012202 BGNMSG MSGSTAT 
012202 MSGSTAT:: 
2388 012202 012701 012244 MOV @STATCOD.R1 sASCII ADORESS T 
2 012206 012100 108; MOV CR1)>,RO sD0NE ALL MSG LINES? 
2390 012210 001410 BEQ 208 :8R If ves 
2391 012212 PRINTX RO sPRINT STATUS BIT NAMES 
012212 010046 MOV RO, -CSP) 
012214 012746 000001 MOV #1, -(SP) 
012220 010600 MOV RO 
012222 104415 Taap CSPNTX 
012224 0627 000004 ADO SP 
2392 012230 000766 BR 108 300 ANOTHER MSG LINE 
2393 012232 012700 000012 208: MOV #10. .RO sNUMBER OF WORDS IN A READ pres BUFFER 
2394 012236 004737 015426 JSR ° xP :PRINT EXPD/RECV MESSAGE BUFFERS 
2395 012242 ENDOMSG 
012242 L10013: 
290s 012242 104423 TRAP C8MSG 
2397 012244 012262 012324 012415 STATCOD: WORD 18,28,38, 4%, 58 ,.68,.0 
2398 012262 045 116 045 1%8:.ASCIZ ‘NSA Tepe Bus $i ls in ord @6:' 
2399 012324 045 116 045 28:.ASCIZ ‘aNSA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
2400 012415 045 116 045 38:.ASCIZ ‘aNSA IRESV2<14> IIDENT<11> IHER <@> IONL<S> IFBY<1>° 
2401 0 045 116 045 48:.ASCIZ ‘sNSA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<Q>' 
2402 012577 045 116 045 5%:.ASCIZ ‘SNSA Tepe Bus Si le in Vord @9:' 
2403 012641 045 116 045 6%:.ASCIZ ‘sNSA DATMIS<7> IlLwW.6> OUTRDY<5S> INRDY<4>' 
2404 EVEN 
2405 
2406 
2407 
ore -SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
se 
2410 3 
mtr sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 
ote sIMPLICIT INPUTS: 
’ 
2415 3 EXPMSG - EXPECTED MESSAGE BUFFER 
2416 3 RECMSG - RECEIVED MESSAGE BUFFER 
2417 3 RCVHIADO - RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
ore 3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
g° 
2420 012716 BGNMSG MSGLOOP 
012716 MSGLOOP: ; 
2421 012716 012701 012760 MOV @LOOPCOD .R1 sASCII ADDRESS TABLE 


SEQ 67 


D6 


REEL Be ™ “PrichP BUREAU Paver RAG ReSERGE wGPFERE-8* 08:15 PAGE 50-2 


2422 
2423 


2424 
° 


012722 
24 


108: MOV Ri) RO 1 OONE ~ MSG LINES? 
BEQ 208 18R If YES 
— RO PRINT STATUS BIT NAMES 


ADD o, 
BR 108 300 ANOTHER MSG LINE 
208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC , PRMSGE xP ;PRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10014: 
RAP C8MSG 
1%:.ASCIZ ‘sNSA Tape Bus L Loopbeck Signels in Word @6:' 
28:.ASCIZ ‘sNSA PARERR<15> IRESV2<14> IRESV1<13>° 
3$:.ASCIZ ‘sNSA IMISP=>IEOT<12> IWRT © >TIDENT<11> IREV =>ICER <10>° 
4%:.ASCIZ ‘aNSA IWFM =>IFMK<O9> IEDIT=>IHER <O08> IFAD *=>ISPEED<07>° 
58:.ASCIZ ‘sNSA ITADO=>IRDY<06> ITADi=>IONL <05> IERASE*>ILDOP <O4>' 
6%:.ASCIZ ‘sSNA IREW => IDBY<03> IRWJ =>IRWD <O2> IFEN =>IFBY <Ol1>’ 


7%: .ASCIZ 
EVEN 


IGO »*>IFPT<00>' 


SEQ 68 


E6 


CZTKHA TK-25 FRT FUNC 04 4 -APR-84 p 
MSGSUB | PRENT URETE SUOSYSTEM MESSARE BOrFER ~ a a a s0 
eat .SBTTL MSGSUB - PRINT WRITE SUBSYSTEM “ESSAGE BUFFER 
3¢ 
2443 3 
oaaa PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
3 
3446 “ 
2447 IMPLICIT INPUTS: 
2449 ; EXPMSG - EXPECTED MESSAGE BUFFER 
3450 ; RECMSG - RECEIVED MESSAGE BUFFER 
2451 ; RCVHIAOD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
2452 ; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
3- 
2454 013574 BGNMSG MSGSUB 
013574 MSGSUB:: 
2455 013574 012700 000012 MOV —s-: @10... RO :SIZE OF WRITE SUBSYSTEM BUFFER 
2456 013600 004737 015426 JSR _—«- PC, PRMSGEXP PRINT EXPO/RECV MESSAGE BUFFERS 
2457 013604 NOMSG 
013604 10015: 
013604 104423 TRAP —-CSMSG 
2458 
2459 
2460 
2461 
2462 
2463 .SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 
2465 
2466 IPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
H 
2468 {IMPLICIT INPUTS: 
3 
3470 4 ERRHI - MEMORY ERROR HIGH ORDER ANDRESS 
2471 ; ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
2472 ; EXP : EXPECTED DATA 
Sava : RECV - RECEIVED DATA 
2475 013606 : BGNMSG MEMADD 
013606 MEMADD: : 
2476 013606 004737 007706 JSR —s- PC, PRTADD PRINT MEMORY ADDRESS IN ERROR 
2477 013612 013701 002200 MOVs XPD. R1 GET EXPD DATA 
2478 013616 013702 002202 MOV —s- REV -R2 GET RECEIVED DATA 
2479 013622 004737 007470 JSR —s PC PRIXOR SPRINT EXPD/RECV 
2480 013626 ENOMSG 
013626 10016: 
013626 104423 TRAP —C$MSG 


CZTKHA TK-25 FRT END FUNC 04 
PRAMPKT - PRINT RAM AND PACKET DATA 


013776 


002210 


177777 
177777 


177777 
002200 
002202 
013776 
000005 


000014 
002250 
002250 


000010 
002250 
116 


F6 
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045 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


. 


;PRINT ROUTINE TO DISPLAY oa DATA 
__— THE RAM DATA DOES NOT MATCH. 


SINPUTS: 
: R4 POINTER TO COMMAND PACKET 
:IMPLICIT INPUTS: 

RAMSIZ NUMBER OF BYTES IN PACKET 


IF RAMSIZ*O THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 
RAMSIZ SET T0 0 


PRAMPKT : 
SAVREG sSAVE R1-RS —~g NEXT RETURN 
MOV @RAMDATA,R1 :DATA FROM THE R 
CLR R sINIT BYTE NUMBER 
S$: CMPB CR1)+,CR4)> sCOMPARE EXPECTED, RECEIVED 
BNE 7$ 36R IF NO MATCH 
78: MOVB -1€R1),R5 sGET RECV RAM DATA 
MOVB -1(R4),R3 sGET EXPD PACKET DATA 
xOR RS,.RS sXOR EXPD/RECV 
BIC #177400,R3 sLOW BYTE ONLY 
MOvB -1(R1),RECV sGET RECEIVED RAM DATA 


MOVB -1(R4),EXPD sGET EXPECTED RAM DATA 
PRINTB @RAMASC, R2,RECV, EXPO, R3 
MOV R3, -(SP) 


MOV 2.-¢ 
MOV @RAMASC , -( SP) 
MOV #5, -C 
MOV SP ,RO 
TRAP CsPNTB 
ADD @14,SP 
108: INC R2 sUPDATE BYTE COUNT 
TST RAMSIZ sDEFAULT TO 8.? 
BEQ $ 36R IF y¥ 
CMP R2,RAMSIZ sD0NE ALL BYTES? 
BLE 53 36R IF 
BR 25% 3 
158%: CMP R2,08. sD0NE DEFAULT NUMBER OF BYTES? 
208: BLT 53% 3:8R IF NO 
25%: CLR RAMSIZ 3sSET DEFAULT RAMSIZ 


PC 3sRETURN 
RAMASC: a ‘SNSA BYTE: SD28A RAM: SO3SA Packet: SO38A XOR:803' 


SEQ 70 


G6 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 53 SEQ 71 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
34 -SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
3¢ 
2532 3 
2533 sTHIS ROUTINE PRINTS THE CONTENTS OF 
2534 3sTHE 7 WORD MESSAGE BUFFER RETURNED BY THE 
2535 3;TK-25. 
2536 3 
a4 3 INPUT: 
3 
2539 3 RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
2540 3 R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
ceak 3 NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
3 
2543 sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
2544 3 
2545 3° 
2546 
2547 014062 PRMESS: 
2548 014062 SAVREG 3sSAVE THE REGISTERS 
2549 014066 010537 011022 MOV RS ,RAMRSH sSAVE DEVICE REGISTER POINTER 
2550 014072 010005 MOV RO,RS sSAVE LOW ORDER ADORESS 
2551 014074 005737 003106 TST K TENABLE sADDRESS ABOVE 28K? 
2552 014100 001001 BNE 108 36R IF YES 
2553 014102 005001 CLR R1 3SET HIGH ORDER ADDRESS TO 0 
2554 014104 010103 108: MOV R1,R3 sSAVE HIGH ORDER ADDRESS 
2555 014106 006100 ROL RO sSHIFT BIT1S TO C BIT 
2556 014110 006101 ROL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
2557 014112 PRINTX @PROASC,R1,R5 sPRINT MESSAGE BUFFER ADDRESS 
014112 010546 MOV 7 ) 
014114 010146 MOV R1,-C(SP) 
014116 012746 014720 MOV @PROASC, -( SP) 
014122 012746 000003 MOV 43,- ) 
014126 010600 
014130 104415 TRAP CSPNTX 
014132 062706 000010 ADD #10,SP 
2558 014136 022715 177777 CMP #177777,CRS) sMESSAGE BUFFER FULL OF ONES 
2559 014142 001010 BNE 158% 368R IF BUFFER IS PROBABLY OKAY 
2560 014144 PRINTX @OMESBFN 3s"MESSAGE BUFFER PROBABLY NOT VALID” 
014144 012746 014640 MOV @MESBFN, -C SP) 
014150 012746 000001 MOV #1,-(SP) 
014154 010600 MOV SP ,RO 
014156 104415 TRAP CSPNTX 
014160 062706 000004 ADD @4,SP 
2561 014164 15%: PRINTX @PRLASC sPRINT HEADER FOR CONTENTS 
014164 012746 014765 MOV @PRLASC, -(SP) 
014170 012746 000001 MOV 91,-CSP) 
014174 010600 MOV SPR 
014176 104415 TRAP CSPNTX 
014200 062706 000004 ADO 04 ,SP 
2562 014204 005004 CLR R4 sNUMBER OF THE NEXT WORD 
2563 014206 010501 MOV R5,R1 sCOPY LOW ORDER ADDRESS 
014210 010300 MOV R3,RO sCOPY HIGH ORDER ADDRESS 
2565 014212 001403 BEQ 208 368R IF NOT ABOVE 28K 
2566 014214 004737 020274 JSR PC,SETMAP sSETUP PAR ADORESS IN RO 
2567 014220 010005 MOV RO,RS 3GET PAR FORMAT ADDRESS ABOVE 28K 
2568 014222 208: 


2569 014222 PRINTX @MESHEA,(RS)>+ sPRINT “MESSAGE BUFFER HEADER =" 


pares 


2570 


2571 


2572 


2573 


2574 


2575 


0150235 
000002 


015070 
000002 


015247 
000002 


002134 


40%: 


“BRINT ‘CONTENTS Of Messace BUFFER’ 20-APR-84 


H6 


06:13 PAGE 53-1 


Wibada ce 
@MESHEA, -C SP) 

#2, -(SP) 

SP ,RO 

CSPNTX 

#6,SP 

@DATAFL CRS )+ 

CRS)+, -CSP) 

@DATAFL, -CSP) 

#2, -(SP) 

SP ,RO 

CSPNTX 

06,SP 

@RBPCRA 

CRS)-, 

@RBPCRA 

@2,-C(SP 

SP ,RO 

CSPNTX 

#6,SP 

@XSOCON, (RS )+ 

CRS)+, -CSP) 

@XSOCON, -(SP) 

#2, -(SP) 

SP ,RO 

CSPNTX 

@6,SP 

re 5 gee tS ta 


CRS )« 
SP) 
-(SP) 


£ 
) 


06 
@XS2CON, CRS )+ 
CRS)+, -CSP) 
@XS2CON, -(SP) 
#2, -(SP) 

sP 


CSPNTX 

#6.SP 
@XS3CON,(RS)+ 
CRS)+, -CSP) 
@XS3CON, -( SP) 
@2, -(SP) 

SP ,RO 

CSPNTX 

06,SP 

5, ear 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


3sPRINT 


sPRINT 


“DATA FIELD LENGTH 


"RESIDUAL BYTE COUNTER 


“XSTATO CONTENTS 


“XSTAT1 CONTENTS 


“XSTAT2 CONTENTS 


“XSTATS CONTENTS 


sCHECK FOR RAM a REQUIRED 


sBR, IF REQUIRE 
IF NO 


SEQ 72 


16 


TKHA TK-25 FRT END FUNC 04 é 20-APR-84 08:13 PAGE 53-2 SEQ 73 
Bamece '“ BRINT CONTENTS OF MESSAce BUFFER” e 

2580 014454 012737 000010 002250 MOV —s- @8. , RAMSIZ ;RAM FIELD IS 8 BYTES LONG 

5581 014462 012737 000020 011020 MOV —«-@20: RAMHLD FIELD STARTS AT 20 OCTAL (10 HEX) 

5582 014470 004737 010636 JSR —- PC, RAMER }READ AND PRINT THEM 

5583 014474 012737 000040 011020 MOV —«-@40, RAMHLD FIELD STARTS AT 40 OCTAL (20 HEX) 

2584 014502 004737 010636 JSR —- PC RAMER IREAD AND PRINT THE 

3585 014506 012737 000060 011020 MOV —«-@60, RAMHLD IFIELD STARTS AT 60 OCTAL (30 HEX) 

3586 014514 004737 010636 JSR —s- PC RAMER SREAD AND PRINT THEM 

5587 014520 012737 000020 002250 MOV -—=s- @16.. ,RAMSIZ IRAM FIELD IS SIXTEEN BYTES LONG 

5588 014526 012737 000100 011020 MOV —«-@100 ;RAMMLD IFIELD STARTS AT 100 OCTAL (40 HEX) 

3589 014534 004737 010636 JSR —s-PC,RAMER ;READ AND PRINT THEM 

2590 014540 000207 50s: RTS PC 


sRETURN 
GNA seeeeeeeee SPECIAL CONTROLLER RAM MEMORY DUMP seaeceacea’ 
MESSAGE BUFFER CONTENTS PROBABLY NOT VALID’ 
Message Buffer Address = #01805’ 
Message Buffer Contents: ’' 


‘NSA 
2593 014720 045 116 045 PROASC: .ASCIZ ‘sNSA 

‘GNA 
SNSA Mess Buffer Header 
@NSA Date Field L th 
NSA Residual Byte Counter 
sNSA XSTATO Contents 
@NSA XSTAT1 Contents 
@NSA XSTAT2 Contents 
SNSA XSTAT3 Contents 


paRDEDE 


CZTKHA TK-25 FRT END FUNC 04 
PRMSGE x 


015711 
000005 


000014 


MACRO M1200 
P - PRINT EXPD/RECV MESSAGE BUFFERS 


20-APR-84 06:13 PAGE 54 


-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


;+(B 


3 
sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 


NUMBER OF WORDS IN BUFFER 


EXPECTED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER 
RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 


RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


3 RO > 
’ 

sIMPLICIT INPUTS: 
3 EXPMSG - 
3 RECMSG - 
3 RCVHIADD - 
3 

3 - 

xP:; 
~~ pees 


sSAVE R1-RS UNTIL NEXT RETURN 
OF WORDS 


;PRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


sNUMBER OF THE CURRENT WORD 
3GET EXPD BUFFER ADDRESS 
3;GET RECV BUFFER ADDRESS 
3GET EXPO 

3;GET RECV 

3XOR EXPD/RECV 


xOR R3 
PRINTX @PRMSG2, R4, (R1+,(R2)>, R3 
MOV SP) 


R3,- 
MOV (R2)+,-CSP) 
MOV (R1)+, -CSP) 
MOV R4,-C(SP) 
MOV @PRMSG2, -( SP) 
MOV o5, at 


TNC 

CMP R4,R5 
BGE 50 

BR 208 


50$: RTS PC 


sNUMBER OF THE NEXT 
sDONE ALL YET? 
sBR IF YES 


SEQ 74 


CZTKHA TK-25 FRT 
PRMSGEXP - PRIN 


2644 015711 
2645 
2646 


K6 


END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 54-1 


T EXPD/RECV MESSAGE BUFFERS 


045 116 045 PRMSGO: .ASCIZ ‘NSA Message Buffer Address = #01805’ 
045 116 045 PRMSG1: .ASCIZ ‘sSNA ey Buffer Contents: ' 
045 116 045 PRMSG2: .ASCIZ ‘sNSA @6D2sA EXPD: SO6SA RECV: SO68A 


-EVEN 


XOR: 


SEQ 75 


CZTKHA TK-25 FRT END FUNC 04 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


015776 
y+ pe 


016202 


110337 


122122 
001431 


012746 


016346 
016344 


016212 
000005 


000014 


002266 
016277 
000002 


MACRO M1200 


000010 


3* 


L6 


20-APR-84 08:13 PAGE 55 


SEQ 76 


: 
sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


~- NUMBER OF BYTES IN BUFFER 
: 
sIMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


ed 
2. 


27s: 


308: 
358: 


RO 


EXPMSG 
RECMSG 


RO,.RS 
PRMNO 

R4 

@EXPMSG ,.R1 
@RECMSG ,R2 
(R1),RO 
@tC<377>,RO 
RO,PRBEXP 


(R2),R3 
@tC<377>,R3 
R3, PRBREC 


RO.R3 
CR1)+,CR2)-¢ 
308% 


PRMNO 
PRMNO, 06. 


30% BR I 
cet .PRBEXP, PRBREC .R3 


50$ 
35% 


sSAVE in UNTIL NEXT RETURN 
S. R OF i YTES 


Ne CURRENT BYTE 
iGET EXPD eUrFER ADDR=SS 
3GET RECV BUFFER ADDRESS 
sGET EXPO BYTE 

sCLEAR UPPER BYTE 

sSAVE FOR ERROR REPORT 
3GET RECV BYTE 

sCLEAR UPPER BYTE 

sFOR ERROR REPORT 

:XOR EXPO/RECV 

sEXPD = RECV? 

36R IF YES 

sUPDATE ERROR COUNT 
og AY 


3880 

3880 

sNUMBER OF THE NEXT 
sDONE ALL YET? 

iBR IF YES 


300 ANOTHER 
;PRINT TOTAL ERROR COUNT 


M6 


BRET YE XE --BRENT ENRoRBSreS in ERBPREC*RESSABe Burren COT2 PAGE 95-2 SEQ 77 
016204 062706 000006 ADD «6, SP 
2691 016210 000207 RTS = PC )RETURN 


2693 016212 045 116 04S PRBMSG: .ASCIZ ‘SNSA BYTE @8D28A EXPD: SO38A RECV: SO38A XOR: #03’ 
2694 016277 045 116 04S PRBTOT: ty ‘sNSA NUMBER OF BYTES IN ERROR = #D2’ 


2696 016344 000000 PRBEXP: .WORD 0 sEXPD 
2697 016346 000000 PRBREC: .WORD 0O sRECV 


N6 


GEER "-BRLERTESBB.AAG Seo oRHGR "1200 20-APR-04 08:18 PAGE Se 


-SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 


2713 016350 004737 007470 


01 


63 
6354 104423 


3¢ 


3 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


; 
s INPUTS: 
iY 


3 
3 Re 
3 
3 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 
PC ,,PRIXOR sPRINT THE DATA 


C$MSG 


SEQ 76 


B7 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-864 08:13 PAGE 57 SEG 79 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


4 -SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 


a 
1644 sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
i 


‘ 
2724 s INPUTS: 


2726 3 Ri RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 


2731 eta BGNMSG EXPBREC 
2732 eget 004737 007340 JSR PC ,PRIBXOR sPRINT THE DATA 


016362 104423 TRAP C8MSG 


2738 -SBTTL RAMERR - PRINT RAM AND PACKET DATA 
2739 ae 


3 
2741 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
i 
2733 s INPUTS: 
2744 3 
Soe 8 RS POINTER TO COMMAND PACKET 
8 
IMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 
IF RAMSIZ*O THEN DEFAULT TO 8. 
IMPLICIT OuTPuTS: 


RAMSIZ SET 10 0 


~ 
2 


2758 016364 BGNMSG RAMERR 
016364 RAMERR: ; 
2759 ered 004737 0153630 = PC ,PRAMPKT sPRINT RAM/PACKET DATA 
016370 110021: 
016370 104425 TRAP C8MSG 
oes -SBTTL RAMTADO - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3° 
2766 SPRINT ROUTINE TO DISPLAY RAM/PACrET DATA 


3 
2768 s INPUTS; 


C7 


GRAF ™ BALRPTIER? KbBe#, mab!"AAG BRERE: BRIAPR-C4 08:13 PAGE 57-1 


016372 
016372 
016372 
016376 


004737 
004737 


042701 
042702 
004737 
004737 


104423 


010022 
013630 


IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


; Ra POINTER TO COMMAND PACKET 

§ 

IMPLICIT INPUTS: 

§ 

; RAMDATA DATA AS READ FROM THE RAM 
; RAMSIZ NUMBER OF BYTES IN PACKET 
: IF RAMSIZ*0 THEN DEFAULT TO 8. 
: ERRHI HIGH ORDER TEST ADORESS 

; ERRLO LOW ORDER TEST ADORESS 

8 

N 

3 

é 

3 


RAMTADD 
RAMTADD: : 
JSR PC .PRITADD sPRINT TEST ADORESS 
= PC .PRAMPKT sPRINT RAM/PACKET DATA 
L10022: 
TRAP C8mMSG 


-SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
3° 


oy 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


$ 

s INPUTS: 

3 

4 Ri RECEIVED DATA 

3 R2 EXPECTED DATA 

3 R4 CONTROLLER RAM ADDRESS 

a - 

RAME XP 

RAMEXP: : 
BIC @*C<377>,R1i sSAVE EXPD RAM DATA BYTE 
BIC @?tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
JSR PC,PRIRAM sPRINT THE RAM ADORESS 
JSR PC ,.PRIXOR sPRINT THE DATA 
ENDMSG 

L10023: 
TRAP CSMSG 


-SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
3° 


$ 
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
sAND TIMER A,B HEADER MESSAGE 


i 
s INPUTS: 


é 
’ R1 RECEIVED DATA 
i R2 EXPECTED DATA 


SEQ 80 


D7 


FERS BARAT TERR HNG Mo enBIMRBE "1200 20-APR-64 08:18 PAGE 57-2 sea 61 
2820 ‘- 
2621 
2822 016426 BGNMSG TIMEXP 
016426 TIMEXP: : 
2823 016426 PRINTX #@TIMSGO sPRINT HEADER 
016426 012746 016454 MOV @TIMSGO, -( SP) 
016432 012746 000001 MOV $3: -(SP) 
016436 010600 MOV RO 
016440 104415 TRAP CSPNTX 
016442 062706 000004 ADO 04 ,SP 
2824 016446 004737 007470 JSR PC ,PRIXOR sPRINT THE DATA 
2825 016452 E 
016452 L10024; 
016452 104423 TRAP C8MSG 
2826 
2827 


o> 016454 045 116 045 — -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3eNSA TIMER B STATUS IS IN BIT 2° 


E7/ 


CZTKHA TK-25 FRT END F 20-APR-84 06:13 PAGE 58 
BADSSR - PRINT TSSR Sh ERRORS ON DATA TAC TRANSFERS =e 
ese -SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
2833 . 3° 
2834 3 
ao sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
3 
2837 s INPUTS: 
2838 3 
2839 3 Ri CONTENTS OF TSSR 
2840 F Re DATA WRITTEN (8 BITS) 
2841 3 
2842 — 
2843 
2844 016554 BGNMSG BADSSR 
016554 BADSSR: : 
2845 016554 010246 MOV R2,-CSP) sSAVE DATA TRANSFERRED 
2846 016556 042702 177400 BIC #177400 ,R2 sGET JUST ONE BYTE 
2847 016562 PRINTB @XFERASC,R2 
016562 01 MOV - 
016564 012746 016614 @XFERASC, -C SP) 
016570 012746 MOV @2,- 
016574 010600 MOV 
016576 104414 TRAP CSPNTB 
01 062706 000006 ADO #6 .,SP 
2848 016604 012602 MOV (SP)>, Ro sRESTORE R2 
2849 016606 004737 005270 JSR PC, PRITSSR sDECODE TSSR CONTENTS 
2850 016612 ENOMSG 
016612 L10025: 
016612 104423 RAP C$MSG 
2851 016614 045 116 045 xXFERASC: -ASCIZ ‘sNSA Data Transferred = 803’ 


F7 


ZTKHA TK-25 FRT F 04 MACRO M1200 20-APR-84 08:13 PAGE 59 SEQ 83 
GLOBAL TINES SECTION 
ss .SBTTL GLOBAL SUBROUTINES SECTION 
2856 tee 
2857 3 THE GLOBAL SUBROUTINES SECTION canes THE SUBROUTINES 
2858 3; THAT ARE USED IN MORE THAN ONE TEST. 
oot) .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 
2863 :¢ 
2864 3 
2865 sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
2866 38Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
2867 ;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
= sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
8 
2870 s INPUTS. 
2871 . 3 
ot | 3 RS ADDRESS OF FIRST REGISTER 
3 
2874 sOUTPUTS: 
2875 3 
2876 3 RO CONTENTS OF TSSR, - ERROR 
2877 3 CARRY SET IF INIT WAS OKAY 
. 3 CLEAR IF FATAL ERROR 
3 
2880 sCALLING SEQUENCE: 
2881 3 
2882 3 MOV @ADDRESS .RS 
2883 3 JSR PC .,.SOFINIT 
2884 3 Bcs CONTINUE 
2885 3 ERROF sREPORT FATAL ERROR 
2886 3 
2887 3° 
2888 
2889 016650 SOF INIT: : 
2890 016650 SAVREG 3s SAVE THE REGISTERS 
2891 016654 012765 000000 000000 MOV #0, TSSACRS) ; 00 THE INIT 
2892 016662 004737 017124 JSR PC ,WAILTF WAIT FOR SSR 
2893 016666 016500 000000 MOV TSSRCRS), RO iGET THE TSSR REGISTER 
2894 016672 010004 MOV RO,R4 sSTART SETUP OF EXPECTED TSSR 
2895 016674 042704 176277 BIC: @tC<HIADDR!OFL>, Ra sCLEAR OUT UNUSED BITS 
2896 016700 052704 002200 BIS @SSR!NBA,R4 3R4 HAS EXPECTED CONTENTS 
2897 016704 020400 CMP R4,RO sONLY EXPECTED BITS SET ? 
2898 016706 001402 BEQ 5$ sBRANCH IF OKAY 
2899 016710 000241 cLc CLEAR THE CARRY FOR ERROR 
2900 016712 000401 BR 10$ 3GO TO EXIT 
2901 016714 000261 S$: SEC 3SET THE CARRY BIT 


2902 016716 000207 10%; RTS PC sRETURN TO CALLER 


G7 


ALS TK-RSeERT ENR FUNC 08 rcurtee M1200 20-APR-84 08:13 PAGE 60 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


017016 


100000 
174077 


000200 
000040 
azste 
000040 
000006 


% 


- SBTTL 


; THIS ~ ot. & TESTS THE CONTENTS OF THE TSSR REGISTER 
; FOR AMBIGUITY 


PINPUT: 
: 
: 


: 
sOUTPUT: 


108: 


408: 


45$: 
508: 


RO 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


sSAVE THE yom REGISTERS 


RO.R4 sCONTENTS OF TS 
esc, + BIT 15 SET ? 
Ss IF YES 
C<NBALOFL!SSRIHTADOR> AO sANY OTHER BITS SET ? 
403 T BE AN ERROR 
45% ;RETURN WITH SUCCESS 
@SSR,RO sIS READY BIT SET ? 
10% sBRANCH IF READY BIT IS SET. 
=~ RO 11S FATAL ERROR BIT SET ? 
sERROR IF NOT 
@rCTERCLS, R4 ;CLEAR ALL BUT TERMINATION CODE 
R4,016 sALL THREE BITS MUST BE SET 
40$ sERROR IF NOT SET 
45% sOK IF ALL ARE SET 
#BITS,RO 11S FATAL ERROR BIT SET ? 
45% sERROR IF BIT IS SET WITH SSR 
*BIT2:BIT1,RO i1S THIS A FUNCTION REJECT 
4s$ 38R, IF TSSR IS OK 
508 sAMBIGUOUS CONTENTS 
sSHOW SUCCESS - NO AMBIGUITY 
PC sRETURN TO CALLER 


SEQ 84 


H7 


4 APR - P 
EAAING OSGERT  ERNBLESDISROLE INTERRUDTEC® 20-APR-84 08:15 PAGE 61 =e & 

2950 .SBTTL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 
¥ 

2952 ; DEFAULT DISPLAY INTERRUPT HANDLERS. 

2953 ; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 

2954 ; OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 
e 

2956 

5957 ; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 

2959 000200 IOKCKIN@BIT7 : DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 

2960 000001 IOKSTP=BITO ; EXPECT “STOP” INTERRUPT. 
3 

2962 sINTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

2963 017020 000 INTMASK ; ‘BYTE 0 
;INTERRUPT FLAG -- SAYS WE GOT ONE CIF POSITIVE) 

2965 017021 000 INTFLAG: ‘BYTE 0 

2967 ;SAVED INTERRUPT VECTOR: 

2968 017022 000000 INTVEC: .WORD 0 

2969 sSAVE CPU PC 

2970 017024 000000 INTCPC: .WORD 0 

2972 ;SUBROUTINE TO ENABLE INTERRUPTS: 

2973 017026 010046 ENAINT: MOV RO, -(SP) ;SAVE RO 

2974 017030 013700 002160 MOV IVEC,RO ;GET POINTER TO VECTORS 

2975 017034 012720 017072 MOV @INTR,(RO)> ;SET UP INTERRUPT VECTOR 

2976 017040 012720 000340 MOV @PRIO7,(RO)>+ 

2977 017044 012600 MOV (SP)+,RO sRESTORE RO 

2978 017046 011646 MOV (SP), -(SP) 

2979 017050 012766 000000 000002 MOV @0,2¢SP) sSET CPU TO LEVEL 0 

2980 017056 000002 RTI 

2982 ;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 

2983 017060 011646 OSBINT: MOV (SP), -C 

2984 017062 012766 000340 000002 MOV @PRIO7,2(SP) 

2985 017070 000002 RTI 


CZTKHA TK-25 FRT END FUNC 04 
- INTERRUPT HANDLERS 


INTR 


017072 
017072 
017072 


2992 017100 


2999 


3000 
3001 


017104 
017112 
017114 


017122 
017122 
017122 
017122 


17 


MACRO M1200 20-APR-84 08:13 PAGE 62 


002174 
017020 
017021 


INTR:: 


. SBTTL 


BISB 


ENDSRV 
RTI 


INTR - INTERRUPT HANDLERS 
INTR sDEFINE INTERRUPT ENTRY 
#1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 


INTFLAG sCLEAR FLAG TO SAY WE GOT INTERRUPT 
— » INTMASK rEXPECTING STOP INTERRUPT? 
@IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


+ REGISTERS, MSG BUFFER, ETC. 


SEQ 86 


CZTKHA TK-25 FRT END FUNC 04 


WAITF 


- WAIT FOR SUBSYSTEM READY 


017240 


104422 
012746 


012727 
000000 
013727 
000000 


000000 
013727 
000000 


177776 
000001 
002116 
177772 
177756 
000000 


000001 
002116 
177772 
177756 


; 
+: SUBROUTINE TO 


3 
3: INPUTS: 


2s: 


. SBTTL 


J7 


MACRO M1200 20-APR-84 08:15 PAGE 63 


WAITF 


- WAIT FOR SUBSYSTEM READY 


WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


CsBRK 
#177776, -CSP) 


1 

+a (PC )+ 
LSOLY,C(PC)+ 
-6(PC) 

4 

-22(PC) 

° -20 
TSSRCRS),RO 
RO 


3s 

alae 
LSOLY. CPC)» 
-6(PC) 

a 

-22(PC) 


Cs$BRK 
(SP) 
es 


as 


(SP )-+ 
PC 


+ DO A SUPVSR BREAK FIRST. 


38IG MSEC TIMER 
sDELAY 100US 


sREAD THE TSSR REGISTER 
sTEST FOR READY BIT SET 


3; EXIT ON STOP FLAG. 
s WAIT 100 USEC 


: DO A SUPVSR BREAK FIRST. 


sREOUCE DELAY COUNT 

sRETRY UNTIL TIMER EXPIRES 

; C = 0, CONTROLLER STILL RUNNING... 
s...OR HUNG -UP AFTER 300 MSEC. 

; C = 1, CONTROLLER IS STOPPED. 

sRESTORE STACK WITHOUT CHANGING CARRY BIT 


SEQ 87 


KK7 


ZTKHA_TK-25 FRT ‘az MACRO M1200 20-APR-84 08:13 PAGE 64 
Efaitcor < brecr Tek FON READY =e os 
3034 .SBTTL CHKTSSR - CHECK TSSR FOR READY 
3035 
30 3¢ 
3037 ’ 
3038 ;THIS ROUTINE WAITS FOR READY IN THE TSSR 
set 3AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
3 
3041 3 INPUT: 
3042 H 
3043 ; RS ADDRESS OF CSR REGISTERS 
3044 3 
3045 sOUTPUT: 
3046 
3047 ; RO CONTENTS OF TSSR 
3048 3 CARRY SET - OKAY 
3049 . 3 CLR - NOT READY AMBIGUOUS, OR SC SET 
3050 3 
3051 s- 
3052 
3053 017242 CHKTSSR: 
3054 017242 004737 017124 JSR PC ,WALTF sWAIT FOR READY 
3055 017246 103014 BCC 20% sBRANCH IF TIME OUT 
3056 017250 004737 016720 JSR PC ,.CHKAMB 3TSSR AMBIGOUS? 
3057 017254 103006 BCC 10$ 38R IF YES 
3058 017256 032700 100000 BIT @SC RO sSPECIAL CONDITION SET? 
3059 017262 001405 BEQ 15% 368R IF NO 
3060 017264 032700 074000 BIT @<SCE !BIE!RMR!INXM> ,RO sANY ERROR BITS SET? 
3061 017270 001402 BEQ 158% 36R IF NO 
3062 017272 000241 10%: CLC 3SET FAILURE 
3063 017274 000401 BR 203 3 
3064 017276 000261 15$: SEC 3SET SUCCESS 


3065 017300 000207 208: RTS PC sRETURN TO CALLER 


L/ 


7 4 ay TK - Beth NO OS Stent ACR L200 20-APR-84 08:13 PAGE 65 


017412 


012737 
012737 
005003 
005711 


020102 
001407 


017334 
000200 


017344 


002136 


002154 
002166 


000004 
000006 


.SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
; * ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
; ON RETURN, IF "C” «= hs CR1) = NEXM ADDRESS. 
3 "C” = 0, ALL ADDRESSES OK. 
3 
;CALL: MOV ADR1,R1 
: MOV ADR2,R2 
3 JSR PC.NXM 
3 RETURN sTEST “C” AND PROCEED. 
3 
XNXM: MOV 02% ,804 s SET BUSERR VECTOR. 
MOV oPRIO4 , 806 
CLR R3 sFLAG. 
1$: TST CR1) 3TEST THE ADDRESS(ES). 
3IF ANY TRAP, CONTINUE AT 2$. 
CMP R1,R2 sOTHERWISE, CONTINUE HERE. 
BEQ 33 3B8R IF FINISHED (NO NEXM’S). 
ADD @2,R1 3SET NEXT ADORESS... 
BR 1$ 3..-AND CONTINUE. 
2s: COM R3 sGOT ONE, SET FLAG... 
MOV @3$,(SP) 
RTI 3;..-ANO DISMISS INTERRUPT... 
3$: CLRVEC 04 3..-ANO GIVE BACK THE VECTOR. 


MOV 04 ,RO 
TRAP CsCvec 


TST R3 sDID WE CATCH ONE ?? 

BEQ +4 sNO, "C” = 0, SKIP NEXT 

SEC sYES, "C” = 1, (R1) = NEXM ADOR. 
RTS PC 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
; ” SUBROUTINE TO ey TEST ITERATIONS. 
3; EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 


i 
s CALL: LOOPTO ARG 


TsT NOITS 3 ITERATIONS INHIBITED? 
1$ : YES. 
TST ave 3 NO. 
BMI 1$ 3LOOPS DISALLOWED IN QUICK PASS. 
DEC LOOPCNT ; BUMP LOOP COUNTER. 
1s: ce ne ;LOOP DISALLOWED, OR DONE. 
2s: SEC ;LOOP ENABLED. 


3%; RTS PC 


SEQ 89 


GET ™BRER FRAG far *MCRO M200 20-0H-04 08:15 PRE ee 


3120 
3121 
aise -SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
3* 
3124 ; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
3125 3 INCREMENT nt toes TO INDICATE THE NUMBER OF TESTS 
3126 : IN THE CURRENT RUN SEQUENCE. 
44 CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
3129 S INPUT: 
3130 3 
et 3 RO POINTER TO TEST ID ASCIZ STRING 
3 
3133 3sOUTPUT: 
3134 Hy 
to F RS ADDRESS OF FIRST DEVICE REGISTER 
3 
444 s IMPLICIT OUTPUTS: 
3 
aH 3 TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
1 3 
ss ;SIDE EFFECTS: 
F 
3143 3 INTERRUPT LEVEL IS RASIED TO LEVEL OF 
3144 3 THE DEVICE UNDER TEST 
3145 : 
3146 3 
3147 
3148 017414 TSTSETUP:: 
3149 017414 010046 MOV RO, -CSP) sSAVE THE TEST ID MESSAGE 
3150 017416 005037 003112 CLR SIFLAG s CLEAR “SOFT INIT” FLAG 
3151 017422 005037 017662 CLR ERRK 3; CLEAR LOCAL ERROR COUNTER. 
3152 017426 005037 005236 CLR EXTA 3 CLEAR ERROR EXTENSION FLAG. 
3153 017432 105037 017020 CLRB INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
3154 017436 013700 002152 MOV UNITN,RO 3; GET THE UNIT NUMBER 
3155 017442 006300 ASL RO 3 AND MAKE IT A WORD OFFSET. 
3156 017444 005737 003066 TST NODEV 3 bID jg a FINO THE DEVICE? 
3157 017450 001430 BEQ 4$ 3; BR IF 
3158 017452 100010 B 3% ; BR IF NOT IOLE 
3159 017454 052760 160000 003134 BIS #160000 ,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
3160 017462 ERROF 1,NXR,NXRERR 3 NO DEVICE HERE -- PRINT IT 
017462 104455 TRAP CSERDOF 
017464 000001 -WORD 1 
017466 003642 ~ WORD NXR 
017470 005202 -WORD NXRERR 
3161 017472 000407 BR 2s 
3162 017474 052760 160001 003134 33%: BIS #160001,ERTABLCRO) ; FLAG ERROR IN THE ERROR TABLE 
3163 017502 ERRDF 2,NOINIT : DEVICE NOT IDLE 
017502 104455 TRAP CSEROF 
017504 000002 .» WORD 2 
017506 004237 -WORD NOINIT 
017510 000000 » WORD 0 
3164 017512 012737 177777 003064 2%: MOV #-1,O0UFLG 3; DROP THE UNIT 
3165 017520 DODU UNITN 
017520 013700 002152 MOV UNITN,RO 
017524 104451 TRAP Cs00DuU 
3166 017526 DOCLN ; ABORT THE PASS 


SEQ 90 


N7 


ZTKHA TK-25 FRT END es MACRO M1200 20-APR-84 08:13 PAGE 66-1 SEQ 91 
STSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
017526 104444 TRAP CsO0CLN 
tet 017530 000423 BR S$ 
3169 017532 4$; RFLAGS RO s GET THE OPERATOR FLAGS. 
017532 104421 TRAP CS$RFLA 
3170 017534 032700 001000 BIT @PNT RO s PRINT THE TEST NUMBERS? 
3171 017540 001412 BEQ 1$ s BR IF NO 
3172 017542 011600 MOV (SP),RO sGET THE ID MESSAGE 
3173 017544 PRINTF #@TNAM,RO sDISPLAY THE TEST ID 
017544 010046 MOV RO, -(SP) 
017546 012746 017610 MOV @TNAM, -CSP) 
017552 012746 000002 MOV #2, -(SP) 
017556 01 MOV : 
017560 104417 TRAP CSPNTF 
017562 062706 000006 ADD #6, SP 
3174 017566 005237 002164 1$: INC TSTCNT ;_ BUMP TEST COUNTER. 
3175 017572 SETPRI IPRI sPRIORITY THAT OF DEVICE 
017572 013700 002162 MOV IPRI,RO 
017576 104441 TRAP C$SPRI 
3176 017600 005726 S$: TsT CSP )+ sF LX UP THE STACK 
3177 017602 013705 002156 MOV CSRADOR ,RS s ADDRESS OF TSV REGISTERS ON UNIBUS 
3178 017606 000207 RTS PC 
3179 017610 045 123 045 TNAM: -ASCIZ ‘SSST#A Test’ 


B8 


CZTKHA TK-25 FRT END FUNC 04 MACRO 1200 20-APR-84 06:13 PAGE 67 SEQ 92 
TSTEND - PRINT ERRORS RECEIVED 
suse -SBTTL TSTEND - PRINT ERRORS RECEIVED 
3 
3184 s AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
see s IF NCRMAL ERROR REPORTING IS DISABLED (FLA: IER). 
3187 017624 TSTEND: RFLAGS 
017624 104421 TRAP CS8RFLA 
3188 017626 030027 020000 BIT RO, @IER 
3189 017632 001412 BEQ 18 s BR IF “IER” NOT SET. 
3190 017634 PRINTF @€SUM,ERRK s PRINT ERROR COUNT. 
017634 0135746 017662 MOV ERRK, -( SP) 
017640 012746 017664 MOV »-(SP) 
017644 012746 MOV 2.- 
017650 01 ° 
017652 104417 TRAP CSPNTF 
017654 062706 000006 ADO 06,SP 
oes 017660 000207 18: RTS 
3193 017662 000000 ERRK: 0 s LOCAL ERROR COUNT. 


1 040 ESUM: .ASCIZ /SA_SDBA ERRORS/ 
3195 017703 105 122 122 EMAXDU: a ZERROR LIMIT REACHED -- OROPPING UNIT/ 


3197 
3198 .SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 
$200 "ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
3202 017750 005237 017662 INCERK: INC ERAK s INCREMENT LOCAL ERROR COUNT 
3203 017754 010046 (SP) 3 SAVE RO 
017756 013700 002152 MOV UniTn s GET UNIT NUMBER, 
3205 017762 006. ASL +... AND MAKE IT A WORD OFFSET 
3206 017764 062700 003134 ADO @ERTABL RO 5 RO GETS ADORESS OF ERROR TABLE ENTRY. 
3207 017770 005210 INC (RO 3 INCREMENT THE DEVICE ERROR COUNT 
3208 017772 032710 007777 BIT 07777,(RO) + OID WE OVERFLOW THE FIELD? 
3209 017776 001001 BNE 18 3 BR IF NO. 
3210 020000 005310 DEC CRO) » YES -- BACK IT UP TO 7777. 
3211 020002 012600 18: MOV (SP )+,RO 3 RESTORE RO 
$212 020004 000207 RTS PC » RETURN TO CALLER. 
3214 020006 010046 CKEMAX: MOV RO, -(SP) s SAVE RO 
3215 020010 0153700 002152 MOV UNITN,RO + GET UNIT NUMBER 
3216 020014 006300 ASL RO s ... AND MAKE IT A WORD OFFSET 
3217 020016 016000 003134 MOV ERTABL(RO).RO 5 GET ERROR TABLE ENTRY 
3218 020022 042700 170000 BIC #170000, s EXTRACT ERROR COUNT FIELD 
3219 020026 020037 002144 RO, x : IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
020032 103004 BHIS 18 ; OR IF YES 
3221 020034 023737 017662 002142 CMP ERRK,LERRMAX ; IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
3222 020042 103417 BLO 28 ; 6R IF 
3223 020044 18: RFLAGS RO ; GET OPERATOR FLAGS 
020044 104421 TRAP CSRFLA 
020046 032700 000040 BIT @IDU,RO s IS DROPPING INHIBITED? 
3225 020052 001013 BNE 28 3; BR IF YES. 
020054 012737 177777 003064 MOV @-1,0UFLG s NO -- DROP THE UNIT 
3227 020062 E 4, EMAXDU 
020062 104455 TRAP  CSEROF 
020064 wORO 


000004 . 4 
020066 0177035 -WORD EMAXDU 


C8 


ZTIKHA TK - T Ft " - APR - - 
FRccre  FROREMENT LOLAL Eamon EGON? "1200 20-APR-84 08:13 PAGE 67-1 SEQ 95 
020070 000000 -WORD O 
3228 020072 DOU UNITN 
020072 013700 002152 MOV UNITN,RO 
020076 104451 TRAP Cs000u 
3229 020100 DOCLN 
020100 104444 TRAP CSOCLN 
3230 020102 012600 2s: MOV (SP )>+,RO s RESTORE RO 
3231 020104 000207 RTS PC 3s RETURN TO CALLER 
aces -SBOTTL FATCHK - INC FATAL ERRORS AND CHECK FOR LIMIT 
t° 
3234 3 
3235 ry CHECK FATAL COUNTER, AFTER a F FOR MORE THAN 25 
asst a ERRORS AND IF OVER CALL UNIT OROP ROUTINE 
8 
3238 ‘- 
3239 020106 FATCHK: 
3240 020106 SAVREG sBETTER SAVE THE REGISTERS 
3241 020112 013701 002152 MOV UNITN,R1 SPICK UP THE UNIT NUMBER 
3242 020116 006301 ASL R1 sMAKE IT INTO A BYTE OFFSET 
3243 020120 062761 000001 003134 ADO @1,ERTABL(R1)  ;ADO 1 TO THE PROPER UNIT’S ERROR COUNTER 
3244 020126 005237 002172 INC FATFLG sBUMP FATAL ERROR COUNTER 
3245 020132 023727 002172 000031 CMP FATFLG, 025. sCHECK AGAINST 25 
3246 020140 002406 BLT 98 36R, IF LESS THAN 25 ERRORS 
3247 020142 RFLAGS RO sREAD THE FLAGS INTO RO 
020142 104421 TRAP CSRFLA 
3248 020144 032700 040000 BIT @6IT14,R0 s8R, IF LOOP ON ERROR IS SET 
3249 020150 001002 BNE 98 s OTHERWISE NEVER BE ABLE TO SCOPE ETC. 
3250 020152 004737 020160 JSR PC .CKDROP sOROP UNIT IF ALLOWED 
000207 SRE TURN ETc. 


s 
§ 
gx 
oe 
a 


CZTKHA TK-25 
CKDROP - 


020226 
020232 


FRT END FUNC 04 
CHECK IF UNIT SHOULD BE 


012737 


013700 
104451 


104444 
012600 
000207 


004737 
000207 


000040 


177777 003064 
002152 


016650 


D8 


MACRO M1200 20-APR-84 08:15 PAGE 66 SEQ 94 
DROPPED 


-SBTTL CKDOROP - CHECK IF UNIT SHOULD BE DROPPED 
° 
1 CHECK IF UNIT SHOULD BE DROPPED 


CKDROP : MOV RO, -CSP) 
whkee ne 1$,NOTSSR 


TRAP CSRFLA 

BIT #@IDU,RO 

BNE 18 

MOV (SP),RO 

MOV @-1,0UFLG 
UNITN 

MOV UNITN,RO 
TRAP Cs000U 
OOCLN sABORT THE PASS 
TRAP CS0CLN 

18: MOV (SP )+,RO 
RTS PC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
’ , 
+ SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 


Conr 1G: ) 
ysR BC SOFINIT 


E8 


CZTKNA Tw-25 FRT END FUNC 24 M1 -APR-84 08:13 PAGE 69 
ENABLE TOLSABLE. MERORT -ARMAGERENT . <8 % 

3286 SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
+ 

3288 ; SUBROUTINE - ENABLE MEM MGT. 
i 

3290 020234 005737 003104 KTON: TST — KTFLG GOT KT? 

3291 020240 001403 BeQStséidS ; NO. 

3292 020242 012737 000001 177572 MOV. -—s- @1, SRO ; YES. ENABLE KT11. 

3293 020250 000207 1s: RTS PC 

3204 

3295 

3296 

3297 3 

3298 } SUBROUTINE - DISABLE MEM MCT. 
: 

3300-020252 005737 003104 KTOFF:; TST — KTFLG ; GOT KT11? 

3301 020256 001405 Beats ; NO. 

3302 020260 000240 NOP 

3303 020262 000240 NOP 

3304 020264 012737 000000 177572 MOV —=s- #0, SRO : DISABLE KT. 

3305 020272 000207 1s: RTS PC 


CZTKHA TK-25 FRT END es oa 
SETMAP - SETUP PAR6 ING 


003104 


F8 


MACRO M1200 20-APR-84 08:13 PAGE 70 


-SBTTL SETMAP 


3¢ 


SEQ 96 


- SETUP PAR6 MAPPING 


; THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
sAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 


sIS RETURNED BIASED TO PAR6 


3 

; INPUTS: 

5 

; RO HIGH ORDER ADORESS BITS 

: Ri LOW ORDER ADDRESS BITS 

;OUTPUTS: 

: RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 

; CARRY SET IF SUCCESS 

i CLR IF ERROR 

hed 

SETMAP: 
SAVREG :SAVE R1-R4 UNTIL NEXT RETURN 
TST KTFLG sSYSTEM HAVE ABOVE 28K? 
BEQ 10% :8R IF NO 
MOV R1.R2 3SAVE LOW ORDER BITS 
ASR RO sCONVERT WORD ADORESS TO 32W BLOCKS 
OR R1 3MAKE IT DOUBLE PRECISION 
BIC 0177,R1 sALINE FOR LOWER 4K BOUNDAR 
CMP R1,KTFLG sHIGHER THAN EXISTING MEMORY ? 
BHIS 10% 38R IF YES 
MOV R1, BEKIPARG sSETUP MAPPING REGISTER PARG 
BIC @160000 ,R2 3SETUP DISPLACEMENT IN PAGE 
ADD #140000 ,.R2 3ADD IN PAR6 BIAS 
MOV RO ;RETURN IN RO 
SEC 3SET SUCCESS 
BR 158% 3 

10s: CLC ;SET FAILURE 

15$: RTS PC ;RETURN 


G8 


tt By rt} Ae ran. SaCKGne. Hy Os aa -APR-84 06:13 PAGE 71 SEQ 97 


Sese -SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
e 
te | : FILL MEMORY WITH A BACKGROUND PATTERN 
3 
3354 » INPUTS: 
3355 : 
3356 3 RO = BACKGROUND PATTERN 
3357 3 FREE * FIRST LOCATION AVAILABLE TO OIAGNOSTIC 
rooe 3 KTFLG * SET TO HIGHEST MEMORY LOCATION IF > 28K. 
3 
3360 3; OUTPUTS: 
3361 3 
3362 3 NONE 
3363 8° 
3364 3 
3365 020400 FILLMEM: 
3366 020400 SAVREG sSAVE Ri- — UNTIL NEXT RETURN 
3367 020404 004737 020252 JSR PC ,KTOFF sOISABLE K 
3368 020410 0O1 MOV oR3 sCOPY TEST TDATTERN 
3369 020412 013701 003076 MOV FREE ,R1 sGET FIRST FREE LOCATION 
3370 020416 013702 003100 MOV FRESIZ,R2 sSIZE OF FREE SPACE BELOW 28K. 
3371 020422 010321 108: MOV R3, CR1)+ sSTORE A BACKGROUND WORD 
3372 020424 DEC Re sO00NE ALL MEMORY IN FREE SPACE? 
3373 020426 003375 BGT 10% 38R IF NO 
3374 020430 005737 003104 TST KTFLG 3 GOT KT? 
3375 020434 001452 BEQ 55% 3s NO. GET OUT. 
3376 020436 004737 020234 JSR PC,KTON s YES. ENABLE KT. 
3377 020442 CLR sHIGH ORDER ADORESS START 
=. 020444 013701 003110  ™  witeataatine sGET >28K START ADDRESS CIN 32W BLOCKS) 
3380 cL_c sCLEAR C BIT 
3381 ROL R1 sCONVERT BLOCKS TO WORDS 
soos oo RO sMAKE IT DOUBLE PRECISION 
3384 020514 004737 020274 JSR PC, SETMAP sSETUP PAR6 MAPPING REGISTER 
3385 020520 010320 308: MOV R3,CRO)> sSTORE TEST PATTERN IN >28K ADDRESS 
020522 7 160000 CMP RO, #160000 sEND OF PAR6 MAPPING AREA? 
3387 020526 103774 BLO 308 368R IF NO 
3388 020530 162700 020000 SUB #20000 ,RO SBACKUP INTO PAR6 MAPPING BEGLix 
3389 020534 062737 000200 172354 ADD 200 , BOK IPARG sPOINT TO NEXT 4K BLOCK >28K. 
3390 020542 023737 172354 003104 CMP QOKIPARG,.KTFLG ;END OF MEMORY? 
3391 020550 001402 BEQ 503 368R IF YES 
3392 020552 000137 JMP 30$ sKEEP GOING ON ETC. 
3393 020556 004737 020252 508: JSR PC ,.KTOFF : OISABLE KT. 
cor 020562 000207 55%: RTS PC 


H8 


K TK - RT _ END F 4 -APR - A 2 
Senn  Bbubane NenowY 18 BackcRoUno PATTERN’ Pr -O4 08:13 PAGE 7 os 
3399 .SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
3¢ 
ey 3 COMPARE MEMORY WITH A BACKGROUND PATTERN 
3 
3402 3; INPUTS: 
3403 3 
04 F RO = BACKGROUND PATTERN 
3405 3 FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
eat 3 KTFLG «= SET TO HIGHEST MEMORY LOCATION IF > 28K. 
3 
3408 3 OUTPUTS: 
3409 3 
3410 3 CARRY - SET IF NO ERROR 
Bete 3 CARRY - CLR IF ERROR 
3 
ote 3 IMPLICIT OUTPUTS: 
3 
3415 3 ERRHI - ERROR HIGH ADDRESS 
3416 Fy ERRLO - ERROR LOW ADDRESS 
3417 3 EXPD - EXPECTED DATA 
3418 3 RECV - RECEIVED DATA 
3419 he 
3420 020564 CMPMEM: 
3421 020564 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
3422 020570 010003 MOV RO,R3 sCOPY TEST PATTERN 
3423 020572 004737 020252 JSR PC ,.KTOFF sOISABLE KT. 
3424 020576 013701 003076 MOV FREE .R1 sGET FIRST FREE LOCATION 
3425 020602 013702 003100 MOV FRESIZ,R2 3sSIZE OF FREE SPACE BELOW 28K. 
3426 020606 020311 108: CMP R3,CR1) sFREE SPACE LOCATION EQUAL TO EXPD? 
3427 020610 001411 BEQ 15$ 368R IF YES 
3428 020612 010137 002206 MOV R1,ERRLO sSAVE ADORESS IN ERROR 
3429 020616 005037 002204 CLR ERRAI 3NO HIGH ADDRESS 
3430 020622 010337 002200 MOV R3,.EXPD sSAVE EXPD FOR ERROR REPORT 
3431 020626 011137 002202 MOV CR1),RECV sSAVE RECV FOR ERROR REPORT 
3432 020632 000474 BR 50% 3 
3433 020634 005721 15%: TST CR1)>+ sPOINT TO NEXT ADORESS 
3434 020636 005302 OEC Re sDONE ALL MEMORY IN FREE SPACE? 
3435 020640 003362 BGT 108 368R IF NO 
020642 005737 003104 TST KTFLG 3 GOT KT? 
3437 020646 001472 BEQ 55% s NO. GET OUT. 
3438 020650 004737 020234 JSR PC, KTON s YES. ENABLE KT. 
3439 020654 005000 CLR RO sHIGH ORDER ADDRESS START 
3440 020656 013701 003110 MOV PST32QW,.R1 3sGET >28K START ADDRESS CIN 32W BLOCKS) 
3441 000006 -REPT 6 
3442 ROL R1 sCONVERT BLOCKS TO WORDS 
3443 ROL RO sMAKE IT DOUBLE PRECISION 
3444 -ENOR 
3445 020712 042701 000177 BIC #177,R1 sALINE 4K BOUNDARY 
3446 020716 010046 MOV RO, -(SP) sSAVE HIGH ORDER 
3447 020720 010146 MOV R1,-C(SP) sSAVE LOW ORDER 
3448 020722 004737 020274 JSR PC, SETMAP 3SETUP PAR6 MAPPING REGISTER 
3449 020726 010004 MOV RO,R4 sCOPY ADDRESS BIASED TO PAR6 
3450 020730 012601 MOV (SP)+,R1 sRESTORE LOW ORDER IN NON PAR6 FORMAT 
3451 020732 012600 MOV (SP)+,RO sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
3452 020734 020314 30%: CMP R3,(R4) sABOVE 28K LOCATION EQUAL EXPD? 
3453 020736 001411 BEQ 328 38R IF YES 


3454 020740 010037 002204 MOV RO,ERRHI sSAVE HIGH ORDER IN ERROR 


GAIA "BEER ARAN 8 oncx AGO" HRP Penk? MPO4 08:18 PAGE 72-1 


3455 020744 


010137 


172354 
003104 


328; 


558: 
608: 


MOV 
MOV 
MOV 


18 


R1,ERRLO 
R3,EXPD 
(R4),RECV 
50s 

#2,R1 

RO 


#200 , BOK IPARG 
BOKIPARS ,KTFLG 


30% 
PC ,.KTOFF 


60$ 
PC ,KTOFF 
PC 


sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
sSAVE RECV FOR ERROR REPORT 


’ 
sUPDATE NON PAR6 ADORESS 
sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADDRESS 
sEND OF PAR6 MAPPING AREA? 


36R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 

368R IF NO 

sTURN OFF MEMORY MAPPING 

3SET FAILURE 


6 
3 TURN OFF MEMORY MAPPING 


sSET SUCCESS 


SEQ 99 


CZTKHA TK-25 FRT END FUNC 04 
- SAVE R1-RS ON STACK 


REGSA 


Vv 


021100 


021102 
2 


000012 


-SBTTL REGSAV 


7° 
: 
sROUTINE T 


0 
sSAVE R1 THROUGH RS ON THE STACK 


H 
sCALLING SEQUENCE: 


’ 
3 JSR 


: 

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
aTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


‘epee. 


; THIS ROUTINE SHOULD ONLY BE — FROM ROUTINES WHICH ARE 


RS ,REGSAV 


J8 
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sCALLED VIA A JSR PC INSTRUCTI 


REGSAV: 


R 
CR: 


~~. 
% 
ww) 
DZD 
ui 


2 
8 


WN ARAARDeE 
SOS SS 
aebee’. 


Oe 


- SAVE R1-RS ON STACK 


sLOOK FOR CNTL C 


sLOOK FOR CNTL C 


SEQ 100 


GEtpar éer's ett opat tern From OPeRat 


544 021140 


021142 


105 


021140 


116 


0 Hy 
124 DATASC: — ‘ENTER DATA PATTERN’ 
-EV 


K8 


20-APR-84 08:13 PAGE 74 


-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


3¢ 


; 
sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


3 
s INPUTS: 
3 
3 NONE . 
3 
sOUTPUTS: 
3 
F RO OCTAL NUMBER FROM THE OPERATOR 
3 
sCALLING SEQUENCE: 
3 
3 JSR PC ,GETPAT 
3 
s= 
GETPAT:: 
SAVREG sSAVE THE GENERAL REGISTERS 
1%: GMANID DATASC,PATDAT,.O,377.0,377.NO 
TRAP C$GMAN 
BR $ 
.WORD PATDAT 
. WORD TSCODE 
-WORD ODATASC 
-WORD 377 
. WORD TSLOLIM 
. WORD TSHILIM 
100008: 
aoe 1$ sRETRY IF ERROR 
MOV PATDAT,RO sDATA PATTERN FROM OPERATOR 
RTS PC ;RETURN TO CALLER 


3¢ 
sLOCAL DATA AREA 
3 - 


PATDAT: .WORD TEMPORARY STORAGE FOR DATA 


SE@ 101 


CZTKHA TK-25 FRT END FUNC 04 


GETSEL 


3570 
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- ISSUE MENU AND GET OPERATOR RESPONSE 


021357 
021406 


021352 
000002 


045 
164 


- SBTTL 


L8 


SEQ 102 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


3¢ 
sROUTINE TO ISSUE A MENU AND GET 
sTHE OPERATOR'S RESPONSE. 


3 
s INPUTS: 
3 
3 RO ADDRESS OF ASCIZ STRING OF MENU 
3 R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
sOUTPUTS: 
3 
8 RO NUMBER OF THE OPERATOR'S SELECTION 
7 
GETSEL:: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 sSAVE THE MENU ADDRESS 
1$: MOV R2,R3 sSTART OF MENU STRING 
2s: TST CR3) sEND OF ASCII ? 
BEQ 3$ sBRANCH IF ALL LINES DISPLAYED 
oT a o sDISPLAY THE MENU 
*,- 
MOV @SELASC, -CSP) 
MOV @2,-(SP) 
MOV SP, 
TRAP CSPNTF 
ADD ° 
BR 2s 
3$: GMANID MENASC ,MENRES.D,-1,0,-1,NO 
TRAP C$GMAN 
BR 10001$ 
-WORD MENRES 
-WORD TSCODE 
-WORD MENASC 
.- WORD -1 
-WORD TSLOLIM 
-WORD TSHILIM 
10001$: 
en 1$ sRETRY IF ERROR 
MOV MENRES ,RO 3sGET THE OPERATOR'S REPLY 
CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED 
BLOS 53 sBRANCH IF OK 
PRINTF @MENERR sD0ISPLAY ERROR MESSAGE 
MOV @MENERR , -( SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD 04,SP 
BR 1s sRETRY 
S$: RTS PC sRETURN TO CALLER 
MENERR: .ASCIZ ‘sSNSA #04 Menu Selection Too Large ++’ 
SELASC: .ASCIZ ‘ssNsT’ 
MENASC: yon ‘Enter Menu Selection: ‘ 


MENRES: 


e) 


CZTKHA TK-25 FRT 
CHKMAN - CHE 


021410 
021410 
021414 
021414 
021416 
021416 
021420 
021420 
021424 
021430 
021432 
021434 
021440 
021442 


021444 


END FUNC 04 
CK MANUAL INTERVENTION LEGALITY 


021444 


116 


M8 
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-SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


3¢ 


3 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


} INPUT: 

: NONE . 

}OUTPUT: 

; CARRY 0O MANUAL INTERVENTION NOT ALLOWED 
H 1 MANUAL INTERVENTION IS OK 


; 
sSIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
44 EXECUTED IF MANUAL INTERVENTION IS NOT 


SAVREG ;SAVE THE REGISTERS 
MANUAL 3SEE IF MANUAL INTERVENTION OK 
TRAP CSMANI 
2s tate Pas s;BRANCH IF ALLOWED 
PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN, -C SP) 
MOV #1 $ -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD @4,SP 
CLC ;CLEAR CARRY FOR ERROR 
1$: RTS PC 3sRETURN 


045 NOMAN: .ASCIZ ‘SNA 4¢¢ Manual Intervention not Allowed - Test Aborted +««' 


.even 


SEQ 103 


CZTKHA TK-25 FRT END FUNC 04 
- SETUP FREE DIAGNOSTIC SPACE 


ENVIRN 


003076 
000002 
003100 
000004 
002012 
000007 


003076 
003100 


000002 
003102 


N8 
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-SBTTL ENVIRN 


- SETUP FREE DIAGNOSTIC SPACE 


; 
: SUBROUTINE TO SET-UP VARIOUS ENYIRONMENTAL PARAMETERS. 


‘ 
ENVIRN: MEMORY 
RAP 


003076 
003100 
003100 10%: 


RO 


LSUNIT,R2 
07 ,FRESIZ 
Re 


10$ 
FREE ,RO 
yy »RO 


v2 2 0 
RO,FREEHI 
PC 


s GET 1ST FREE ADDRESS... 
s...AND WORD COUNT. 


s GET NUMBER OF UNTTS 
3s TAKE AWAY 7 WORDS PER UNIT 


sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 WORD 

sSTORE LAST FREE ADDRESS 
sRETURN 


SEQ 104 


012716 
000002 


010037 
000207 


MACRO M1200 


i 
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TUP KT11 MEMORY MANAGEMENT REGISTER 


-SBTTL KTINIT 


4 
sROUTINE TO INIT KT-11 
4 


KTINIT: 
CLR KTFLG 
CLR K TENABLE 
001577 Cup LSOHIME ,@1577 
BLOS Os 
So ae 
003104 MOV LSHIME ,KTFLG 
003104 BIC @177,KTFLG 
MOV RO, BOERRVEC 
CLR 
MOV @KIPARO.R1 
177740 18: MOV @77406, -40(R1) 
MOV eCR1 deo 
ADD #200 ,RO 
CMP RO, #2000 
BNE is 
MOV #177600, -(R1) 
BR 98 
2s: MOV 068 .( SP) 
RTI 
68: MOV RO, BCERRVEC 
98: RTS PC 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >26K MEMORY FLAG 
INIT TEST >26K FLAG 
GOT ENOUGH MEMORY ( >28K)? 


SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 


(TRAP IF NO). 
YES. SET KT FLAG. 


RESTORE OLD ERR VEC PTR. 
RO = AR DATA, 

Ri © KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY “4K~. 

AT “I/0"? 


NO. 

YES. SET KTPAR7? FOR I/0. 
SET UP RETURN 

RTI TO NEXT LOCATION 
RESTORE OLD ERR VEC PTR. 


SEQ 105 


C9 


BRS SEA Bn PabEZ END FUNC 04 MACRO M1200 20-APR-84 06:13 PAGE 79 SEQ 106 


.SBTTL PROTECTION TABLE 
BGNPROT 


021760 LSPROT: : 
3691 021760 177777 #%&77777 «3177777 ° -1, -1, -1. -1 «NO DEVICE PROTECTION REQUIRED. 
$692 021770 ENOPROT 4 


\ 


PArTia Te°Set Fon FUN ° 


3695 


005676 
003112 
003106 
002250 


000036 


000035 


000040 


000037 


002164 
002722 
002172 
003336 


D9 
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002150 


002012 


003134 


-SBTTL INITIALIZE SECTION 


ee 
THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


t 

IF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

3 

g°* 


BGNINIT 
= 
MOV @EPRT1 .EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
CLR K TENABLE sCLEAR TEST ABOVE 26K FLAG 
CLR RAMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF @€F .CONTINUE 
. CONTINUE ,RO 
TRAP cs G 
BNCOMPLETE 18% 
Bcc is 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS AS 36R IF NO. 
TST OUFLG sOROPPED UNIT? 
BMI NXTU s6R IF YES 
MOV UNITN,R1 
ASL 
TST ERTABL(R1) 
BEQ TU 
BIT @BIT14,ERTABLCR1) ;DROPPED? 
BNE NXTU 
ExIT INIT 300 NOTHING IF “CONTINUE”. 
TRAP CsExIT 
-WORD 1&110030-. 
18: READEF @€F .NEW 
MOV @EF .NEW,RO 
TRAP CSREFG 
So 3 TAKE NEXT UNIT IF NOT NEW PASS. 
READEF @€F .START 
@€F .START,RO 
TRAP CSREFG 
BCOMPLETE 2% 
Bcs 2s 
READEF @€F .RESTART 
EF .RESTART RO 
TRAP CSREFG 
BNCOMPLETE 318 
Bcc 318% 
2s: 31ST PASS, BUS-INIT... 
BRESET 3B8US RESET. 
TRAP CSRESET 
CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 
CLR FLLTSW 3SHOW 1ST PASS ON FAULT LIGHT MESSAGE Sw 
CLR FATFLG sRESET FLAG TO ZERO “FATAL ERRORS” 
198; CLR SKIPT sCLEAR THE SUBTEST “SKIPPER” 


SEQ 107 


ZTKHA TK- 
ITIALIZE 


3736 022142 
3737 022142 
3738 022150 
3739 022154 
3740 022160 
374 64 


346 
3784 022352 


END FUNC 04 


CTION 


012737 
004737 
004737 
012700 
005020 


020027 
103774 
000404 
005037 
000137 


012737 
005037 


012001 
010137 


012001 
011002 
010237 
010137 
012721 
010221 


177777 
021540 


177777 
002170 


002152 
002152 


177777 


002012 


002170 


000100 


017072 


002154 


002152 


002012 


208: 


118: 
PASRPT: 


108: 
SETU: 


E9 
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MOV . p< 1 0 QvP 
JSR PC .ENVIRN 
JSR PC .KTINIT 
MOV RTABL, 
CLR ye 
CMP RO, COERTABE 
BLO 30 
BR as 
CLR ave 
JMP PASRPT 
MOV @-1,UNITN 
CLR DEVCNT 
BREAK 
TRAP CsBRK 
INC UNITN 
CMP UNITN,LSUNIT 
BLO SETU 
MOV @-1,0UFLG 
BR 11% 
DOCLN 
TRAP CSOCLN 
NOP 
CMP LSUNIT,@1 
BL NEWPAS 
TST DEVCNT 
BEQ NEWPAS 
RFLAGS RO 
TRAP CSRFLA 
BIT @ISR,RO 
BNE WPAS 

T 
TRAP CsORPT 
BR NEWPAS 
GPHARD UNITN,RO 
MOV UNITN,RO 
TRAP C8GPHRD 
BNCOMPLETE NXTU 
Bcc NXTU 
CLR LG 
INC DEVCNT 
MOV CRO)+,R1 
MOV R1,CSRADOR 
MOV CRO)+,R1 
MOV CRO),R2 
MOV R2,IPRI 
MOV R1,IVEC 
MOV @INTR,CR1)> 
MOV R2,CR1)> 


Bee . QUICK VERIFY, ee 
sSET ENVIRONMENT. 
sINITIALIZE KT MEMORY MANAGEMENT 


sCLEAR THE ERROR TABLE 


sGO REPORT THE STATUS 


sINIT UNIT NUMBER 
sCLEAR COUNT OF DEVICES RUNNING 


3...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
3B8R IF ONLY 1 

sARE ANY STILL RUNNING? 
38R IF NO 


sSHOULD WE PRINT STATISTICS 
36R IF NO 


sGET UNIT N P-TABLE POINTER. 


s8R IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 
sGET 1ST REGISTER ADDRESS 


sADDRESS OF REGISTERS OF UNIT UNDER TEST 


3GET VECTOR ADDRESS. 

sGET INTERRUPT PRIORITY 

3sSET INTERRUPT PRIORITY 

3SET INTERRUPT VECTOR POINTER... 
3...VECTOR.. 

3...ANO PRIORITY. 


SEQ 108 


K-25 FRT 


MITTALLSE SECTION 


3786 022354 
37 


3813 022476 


3817 022476 
022476 
2502 


023727 


3005 
010137 
012737 


012700 
104441 


104411 
045 


END FUNC 04 


000006 
003066 
002156 
000000 
017302 


003066 
177777 


116 


F9 
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003064 


045 


18: 
3 TST QvP 31ST PASS 7? 
’ BEQ 53 3sNO, SKIP THE PASS 1 STUFF. 


11ST PASS, CHECK THAT DEVICE ADORESSES ARE VALID, AND 
sTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


yong _ R11 
BIS + Ma ERTABL(R1) ;SAY DEVICE RUNNING 
CLR ExT sCLEAR ERROR EXTENSION FLAG. 
CMP COUNIT, 02 s ARE eS TESTING MULTIPLE UNITS? 
BLOS 10% 3s6R IF 
RFLAGS RO sYES -- Meer OPERATOR FLAGS. 
TRAP CSRFLA 
BIT @PNT RO sSHOULD WE PRINT UNIT @? 
BEQ 10% 36R IF T. 
PRINTF @PUNIT,UNITN sPRINT THE UNIT @ 
MOV UNITN, -(SP) 
MOV @PUNIT,. -C SP) 
MOV @2,-C 
Vv SP ,RO 
TRAP CSPNTF 
AOD 06 ,SP 
108: 
CLR Vv 
MOV CSRADOR .R1 sADDRESS OF FIRST REGISTER 
MOV R1,R2] 3sSTART OF REGISTERS 
ADD @TSSR ,,R2 sADORESS OF TSSR REGISTER 
JSR PC, XNXM TEST BOTH CONTROLLER REGISTERS... 
Bcc 2s -.-AND BR IF ALL OK, 
MOV R1,NODEV IFLAG DEVICE 4 NON-EXISTENT 
ee MOV @-1,0UFLG sDROP THIS UNIT 
3 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
Hf 
5$: SETPRI #@PRIOO sENABLE INTERRUPTS. 
MOV @PRIOO,RO 
TRAP C$SPRI 
ENOINIT 
L10030: 


TRAP CsINIT 


PUNIT: ari /SNENBAseeee TESTING UNIT s028A easee/ 
EV 


SEG 109 


G9 
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3823 .SBTTL ADD AND DROP UNITS SECTIONS 
3825 3¢ 
3826 : THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3827 : TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 
sess : OR (8) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
teal 
3830 022554 
022554 LSAU:: 
3831 022554 010001 MOV RO,R1 3 GET UNIT TO BE ADDED (RO) 
3832 022556 006301 ASL Ry 3; MAKE IT A WORD INDEX 
3833 022560 052761 100000 003134 BIS #100000, ERTABL(R1) ; SET THE “ACTIVE” BIT 
3834 022566 042761 040000 003134 BIC #40000, ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3835 022574 PRINTF @18%,RO 
022574 010046 MOV RO, -(SP) 
022576 012746 022622 MOV #1%,-CSP) 
022602 012746 000002 MOV @2,-(SP) 
022606 010600 MOV 
022610 104417 TRAP CSPNTF 
022612 062706 000006 ADD 6 ,SP 
3836 022616 EXIT AU 
022616 000167 .WORD J$JMP 
022620 000026 -WORD 110031-2-. 
3837 022622 045 116 045 18: -ASCIZ /sSNSA UNIT SDA ADDED/ 
3838 .EVEN 
3839 
3840 022650 ENDAU 3 UNUSED. 
022650 L10031: 
leet 022650 104452 TRAP CsAU 
see 
3842 3; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3843 ; TO BE REMOVED FROM THE TEST LIST. 
3844 3 
3845 3 SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3846 + “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
3847 3; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3848 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3849 3; WHICH ARE STILL ACTIVE. 
34 ; UPON ENTRY, RO” CONTAINS THE UNIT TO BE DROPPED. 
3852 022652 
022652 L$DU:: 
3853 022652 012737 177777 0603064 MOV @-1,0UFLG 
3854 022660 010001 MOV RO,R1 
3855 022662 006301 ASL Ri 
3856 022664 052761 140000 003134 BIS #140000 ,ERTABL(R1) : SAY DROPPED 
3857 022672 000240 000240 000240 240, 240, 240 3 2272222222 
3858 022700 PRINTF @1$,RO 
022700 010046 MOV RO, -(SP) 
022702 012746 022726 MOV #1%,-(SP) 
022706 012746 000002 MOV @2,-(SP) 
022712 010600 MOV SP ,RO 
022714 104417 TRAP CSPNTF 
022716 062706 000006 ADD #6 ,SP 
3859 022722 EXIT Du 
022722 000167 . WORD 


J$ UMP 
022724 000030 -WORD 1L10032-2-, 


H9 
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045 


104453 


012703 
004737 
103420 
012727 
000000 
013727 
000000 


116 


000550 
017124 
000372 
002116 


177772 
177756 


020160 


045 18: wy /GNSA UNIT 808A DROPPED/ 


.E 
E 
L1003e2: 
TRAP Cs0u 
aoe 
3 AUTO-DROP CODE SECTION. 
g°-- 
BGNAUTO 
LSAUTO:: 
MOV #360. ,.R3 sENOUGH TIME FOR 2400' REEt TO REWIND 
108: JSR PC ,WAITF sWAIT FOR SSR TO SET 
6cs 20$ 3LEAVE WHEN SSR IS SET 
DELAY 250. sWAIT FOR .25 SECONDS 
MOV #250. .CPC)-> 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE --20 
DEC RS 3BUMP COUNTER DOWN 
BNE 10$ 3sKEEP GOING 
_ JSR PC .CKDROP sTRY AND DROP UNIT 
ENDAUTO 3s UNUSED. 
L10033: 


SE@ 111 


3912 
3913 
3914 
3915 


023174 


005737 
100407 


013705 
012765 
004737 


104412 


010346 
012746 


003064 


002156 
000000 
017124 


023324 
00000 


023431 


19 
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TIONS 112 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


ee 
; THE CLEANUP CODING SECTION CUNTAINS THE wy THAT IS 
; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
: -- 


BGNCLN 
LSCLEAN: : 
TST OUFLG ieee **y * FLAG IS SET ON.. 
BMI 1$ Be .AND GROSS CONTROLLER FAULT... 
. DON'T TRY TO xXCT CLEANUP CODE. 
MOV CSRADOR RS s ADDRESS OF TSV REGISTERS ON UNIBUS 
MOV #0, TSSRC(RS) 300 SOFT INIT 


JSR PC ,WAITF 


TRAP CsCLEAN 
Po 


; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
’ BGNRPT 
LSRPT:: 
PRINTS sDEVSU 


MOV sP 

TRAP CSPNTS 
ADD 4, 

MOV R2,-(SP) 
MOV R3, 7 ) 


GET START OF tan TABLE. 


$ 
CLR R 3; CLEAR UNIT NUMBER 
1%: MOV (R4),R2 ; GET ERROR TABLE ENTRY € TEST IT. 
aay pe 3 ZERO IF UNIT NOT RUN 
BIT @BIT14,R2 3 WAS UNIT DROPPED? 
BNE 2s ; BR IF YES 
BIC @*C7777,Re2 s GET ERROR COUNT FIELD 
PRINTS @DEVONL,RS,R2 3; PRINT 
MOV Re, - SP) 
MOV R3, -(SP) 
MOV @DEVONL , -( SP) 
MOV #3, -C 
MOV »RO 


BR 4 
2s: CMP R2, #160000 3 WAS UNIT NON-EXISTENT? 
BNE 3% ; BR IF NO 
PRINTS @DEVNXR,RS 
MOV R3,-(SP) 


MOV @DEVNXR, -(SP) 


CZTKHA TK-25 FRT END FUNC 04 


012746 
0600 


3933 023324 045 116 
3934 023361 045 101 
3935 023431 045 101 
3936 023513 045 101 
3937 023574 045 101 


JI 
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CLEAN-UP AND REPORT CODING SECTIONS 


38: 


4$: 


2, -(SP) 

SP ,RO 

CSPNTS 
sP 


S UNIT NOT READY AT STARTUP? 
IF NO. 


25 


R3 
rs - SERTABE 


1 
(SP )+,R4 
(SP)+,R3 
(SP )+,R2 
3: UNUSED. 


CsRPT 


/BNBADEVICE STATUS SUMMARY :@N 
/#A UNIT SD038A ONLINE, 

/$A UNIT S038A DROPP 
/$A UNIT SD38A 
/$A UNIT SD38A 


ERRORS = SDOSN/ 
ED, NON-EXISTENT REGISTERSN/ 
DROPPED, NOT READY AT STARTUPSN/ 
DROPPED, ERRORS = sDsN/ 


SEQ 113 


K9 
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TEST 1: WRITE TAPE MARK RETRY 
3964 .SBTTL TEST 1: WRITE TAPE MARK RETRY 
pet , 
: 
3967 ;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
teed ;sREVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 
3 
3970 : 
aere ;THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 
3 
3973 3 
3974 3 
3975 3- 
3976 023644 BGNTST 
023644 Til:: 
3977 023644 005037 002172 CLR FATFLG oT FATAL ERROR FLAG 
3978 023650 005037 003104 CLR KTFLG sHOLD OFF KT11 
3979 023654 012737 005676 002150 MOV @EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
3984 023662 012700 032111 MOV @TST29ID,RO SASCII MESSAGE TO IDENTIFY TEST 
3985 023666 004737 017414 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
3986 023672 012737 000001 002166 MOV @1,LOOPCNT sPERFORM 1 ITERATIONS 
3987 023700 005037 026544 CLR T29CNT ;CLEAR TAPE RECORD COUNTER 


3988 023704 T29L00P : 


L9 


-_ i aan ee 


000000 
013727 
000000 


002116 
177772 
177756 
026550 
020106 


026360 
010332 


020106 


000100 


026550 


3¢ 


3 

sTEST 1, SUBTEST 1 
3 

sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 


sTAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 


sNON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


10$: 


25%: 


PC, T2E9REST 
PC, T29RT2 
PC, T29R 

PC ,SOF INIT 
20% 

250 


— 
PC ,FATCHK 


RO,R1 
ERRNO, SF IERR, SFIMSG 


@T29PACKET ,R4 
WRTCHR 


RO, 
ERRNO, WRTMSG, SF IMSG 


TSSRCRS),R1 
R1,R2 


OOFL, R2 
R1,R2 
268 


SEQ 115 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T 


TRAP 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 
sSET UP DELAY ROUTINE 
:00 INITIALIZE ON CONTROLLER 
3BR IF INIT WAS OK 
sDELAY ABOUT .25 ee es 


- WORD 
MOV 


sBUMP DELAY ROUTINE DOWN 
3;8R, IF MORE gil TIME LEFT 


THAN 25 


sINC AND CHECK FOR MORE 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
- WORD 
- WORD 


Cs6SUB 


@250,(PC)+ 
UsoLY.CPC)s 
“ecPe) 
"32cPC) 
--20 


sSUBROUTINE NEEDS PACKET ADORESS 


sISSUE WRITE CHARACTERISTICS 


ANO 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC i - 


sLOOP IF SELECTED 


s;GET THE TSSR 

sSET UP EXPECTED 

sOFF LINE SHOULD NOT BE SET 
sTHEY SHOULD BE EQUAL 

sB8R, IF OFL IS NOT SET 


CsCLP1 


Fee SURI TE TabE HAHN RETRY 


4037 


024062 
024 


024274 


020106 


003076 
141011 


026510 
177776 
017124 
000000 
100206 


020106 


026406 
002000 


020106 


M9 
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026512 
026510 


268: 


40$: 


758%: 


ERROF 


ERRHRD 


ERRNO, T290FL ,EXPREC 


PC,CKDROP 
PC ,REWIND 
TSSRCRS),R1 
es 2 


RO,R4 
PC .FATCHK 
ERRNO, T29RWN,PKTSSR 


ERRNO, T29B0T ,EXPREC 


FREE , T29RB 
#141011, jaa 
@T29PK3,R 

R4, TspB¢ RS ) 


TSSRCRS), Ri 
@SSR!SC!BIT1!6IT2,R2 


75$ 
PC .FATCHK 
ERRNO, T29WDE ,PKTSSR 


T29BFR+6,R1 
R1,R2 
#BIT10,R2 
R1,R2 


TCHKK 
ERRNO, T29NEF , EXPREC 


sORIVE IS OFF LINE 
TRAP CsEROF 
«WORD 103 
-WORD T290FL 
«WORD EXPREC 


sTRY AND DROP DRIV 
re tone REWIND COMMAND 


3sGET 
3SET UP EXPECTED TSSR 
36R, IF NO PROBLEM 


sPACKET ADDRESS SET UP 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHRD 

«WORD 104 

-WORD T29RWN 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

3BR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER — 


CSERHRD 
-WORD 105 
-WORD T29B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
CsCLP1 


T 
sADDRESS OF READ BUFFER 
sWRITE TAPE MARK RETRY,CVC=1,.ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


sBR, IF 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 106 
-WORD  T29WDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLPi 


sGET XSTO STATUS WORD 
sSET UP EXPECTED 

3SET THE NEF BIT 

sARE THEY EQUAL 

sB8R, IF EQUAL (GOOD) 
sINC AND CHECK FOR MORE 
sNEF SHOULD BE SET 


THAN 25 ERRORS 
TRAP CSERHRD 


CZTKHA TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


306 

4089 024310 
024310 
024310 
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COM R3 
BNE 26$ 
ENDSUB 


sRESET THE SWITCH 


sBR, IF FIRST TIME THROUGH HERE 
L10037: 


. WORD 
. WORD 
. WORD 


TRAP 


SEQ 117 


107 
T29NEF 
EXPREC 


CsESUB 


B10 
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SEQ 116 
TEST 1: WRITE TAPE MARK RETRY 


4091 ‘* 

4092 3 

4093 sTEST 1, SUBTEST 2 

4094 3 

4095 sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 

4096 sIS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 

4097 ore STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 

4096 v 

4099 3 

4100 8 

4101 ’ 

4102 t- 

4103 024312 BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>> 
024312 1.2: 
024312 1 TRAP Cs6sus 

4104 024314 004737 032140 JSR PC, T29REST sSET COMMAND PACKET 

4105 024320 004737 032232 JSR PC, T29RT2 sSET UP OTHER COMMAND PACKET 

4106 024 004737 032274 JSR PC, T29RTS sSET UP OTHER C\. “MAND PACKET 

4107 024330 004737 016650 JSR PC, SOF INIT 3:00 INITIALIZE GN CONTROLLER 

4108 334 103407 6cs 208 s Ox 

4109 336 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4113 024342 010001 MOV RO,R1 iCONTENTS OF TSSR REGISTER 

4114 024344 ERROF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
024 104455 TRAP CSEROF 
024 000154 «WORD 106 
024350 003554 -WORD SFIERR 
024 011666 . WORD 

rt tr 024354 20%: 

4117 024354 012704 026360 MOV @T2IPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 

4118 024360 004737 010332 JSR PC. .WRTCHR s ISSUE WRITE An he wa a 

4119 024364 103407 ecs $ sBR, IF COMMAND ISSUED Ok 

4120 024366 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4124 024372 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4125 0243574 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
024374 1044 TRAP CSERHRO 
024376 00015 -WORD 109 
024400 004760 -WORD WRTMSG 
024402 011666 WORD SFIMSG 

4126 024404 25%: CKLOOP sLOOP IF SELECTED 
024404 104406 TRAP CSCLP1 

4127 024406 004737 010434 268: JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

4126 024412 016501 000000 MOV TSSRCRS).R1 3GET TSSR 

4129 024416 012702 000200 MOV @SSR ,R2 3sSET UP EXPECTED TSSR 

4130 024422 103407 Bcs 306 36R NO 

4131 024424 010004 MOV RO,R4 PACKET ADORESS SET UP 

4132 024426 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4136 024432 ERRHRD ERRNO, T29RWN,PKTSSR sREWIND NOT ACCEPTED 
0244 104456 TRAP CSERHMRO 
024434 000156 WORD 110 
024436 030270 ° TOoRWN 
024440 011700 ° PKTSSR 

4137 024442 308: CKLOOP sLOOP IF SELECTED 
024442 TRAP CsciP1 

4138 024444 013701 026406 MOV T29BFR6,R1 sPICK UP XSTO 

4139 024450 010102 MOV R1,R2 sSET UP EXPECTED 

4140 024452 7 000002 BIS oBIT1,R2 3SET BOT BIT IN EXPECTED 
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SEQ 119 
TEST 1: WRITE TAPE MARK RETRY 


4141 02445€ 020102 CMP R1,R2 sD0ES EXP © REC'D 
4142 024469 001406 BEQ 408 sBR, IF EQUAL (OK) 
4143 024462 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4147 020466 ERRHRD ERRNO, T2980T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
024466 104456 TRAP  CSERHROD 
024470 000157 .WORD 111 
024472 027761 [WORD T2960T 
024474 016 : EXPREC 
4148 024476 012737 000001 026512 40%: MOV #1, T29R8 OF RECORDS TO SPACE OVER 
4149 024504 012737 000400 026516 MOV 0256. , T2952 sSET UP RECORD SI 
4150 024512 012737 140005 026510 MOV #140005, T29PK3 sWRITE FORWARD, -VC*1. ACK C 
4151 024520 0127046 026510 MOV @T29°K3 sSET UP R4 WITH PACKET ADORESS 
4152 024524 010465 177776 MOV R4, TSDBCRS) sISSUE COMMAND 
4153 024530 004737 017124 JSR WAITF IWAIT FOR SSR TO SET 
4154 024534 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
4155 024540 012702 000200 MOV @5SR,.R2 sSET UP EXPECTED 
4156 024544 020102 CMP Ri, sARE THEY EQUAL 
4157 024546 001406 BEQ 758 10R, IF OK 
4158 024550 004737 020106 JSR PC. FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4162 sSOFT ERROR, DON'T CARE ABOUT WRITE 
4163 sCOMMAND’S RESULTS - CHECKING WRITE 
4164 s TAPE MARK COMMAND 
4165 024554 ERRSOFT ERRNO, T2OWRT .PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
024554 104457 TRAP  CSERSOFT 
024556 000160 .WORD 112 
024560 027714 "WORD  T29uRT 
024562 011700 "WORD  PKTSSR 
4166 024564 75%:  CKLOOP sLOOP IF SELECTED 
024 1 TRAP = C8CLP1 
4167 024566 012737 000001 026512 MOV 01, T29R8 sNUMBER OF RECORDS TO SPACE OVER 
wp i680 924574 012737 140410 026510 MOV #140410, T29PK3 SET UP COMMAND IN APCKE SET 
4169 024602 012704 026510 MOV eT29PK3,R4 sSET UP R4@ WITH PACKET ADORESS 
4170 024606 010465 177776 MOV R4, TSDBCRS) sISSUE COMMAND 
4171 024612 004737 017124 JSR WAITF sWAIT FOR SSR TO SET 
4172 024616 016501 000000 MOV TSSR(RS),R1 1GET TSSR CONTENTS 
173 024622 012702 000200 MOV @SSR.R2 sSET UP EXPECTED 
4174 024626 020102 CMP Ri, SARE THEY EQUAL 
4175 024630 001406 BEQ 1758 :8R, IF Ox 
4176 024632 004737 020106 JSR PC. FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4180 024636 ERRHRD ERRNO, T29WDE ,PKTSSR iTSSR INCORRECT AFTER READ DATA 
024636 104456 TRAP CSERHROD 
024640 000161 .WORD 113 
024642 027632 "WORD T29WOE 
024644 011700 PKTSSR 
4181 024646 175%:  CKLOOP sLOOP IF SELECTED 
024646 TRAP —s-« CSCLP1 
4182 024650 013737 003076 026512 MOV FREE, T29R8 sADORESS OF BUFFER 
4183 024656 012737 141011 026510 MOV #141011, T29PKS sWRITE TAPE MARK RETRY.ACK.CVC*1 COMO. 
4184 024664 012704 026510 MOV @T29PK3.R4 sSET UP R& WITH PACKET ADORESS 
4185 024670 010465 177776 MOV R4, TSOBCRS) sISSUE COMMAND 
4186 024674 004737 017124 JSR PC; WAITF sWAIT FOR SSR TO SET 
4187 024700 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
4188 024704 012702 100204 MOV eSSRSC!61T2, R2 sSET UP EXPECTED 
4189 024710 020102 CMP R1,R2 SARE THEY EQUAL 
4190 024712 001406 BEQ 1808 38R, IF OK 
4191 024714 004737 020106 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4195 024720 ERRHRD ERRNO, | 29WDE ,PKTSSR sTSSR INCORRECT AFTER READ DATA 


$0168 


1808: 


1908: 
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T298FR+14,R1 
Ri 


PC .FATCHK 
ERRNO, T29RIB ,EXPREC 


SEQ 120 
TRAP CSERHRO 
-WORD 114 
-WORD T29WDE 
-WORD PKTSSR 


sLOOP IF SELECTED 
sGET XST3 STATUS WORD 


° 115 
-WORD T29RIB 
-WORD EXPREC 


g>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
L10040: 
TRAP CsESUB 


E10 
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Gee 1: uate Tabe MARR RETRY a5 i05 

4210 s¢ 

4211 a 

pty sTEST 1, SUBTEST 3 

3 

4214 sVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES 

4215 sPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 

ani? sCOMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 

3 

4218 s- 

4219 024766 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
024766 71.3: 
024766 104402 TRAP Cs6SUB 

4220 024770 004737 032140 JSR PC, T29REST sSET COMMAND PACKET 

4221 024774 004737 032232 JSR PC, T29RT2) sSET UP OTHER COMMAND PACKET 

4222 025000 004737 032274 JSR PC, T29RTS 3sSET UP Ay COMMAND PACKET 

4223 025004 012737 023420 026550 MOV #10000. , T290LY sSET UP DELAY ROUTINE 

4224 025012 004737 016650 108: JSR PC, SOF INIT ;00 INITIALIZE ON CONTROLLER 

4225 025016 103426 ecs 208 36R IF INIT WAS OK 

4226 025020 DELAY 250 sDELAY ABOUT .25 SECONDS 
025020 012727 000250 MOV #250 CPC )+ 
025024 000000 - WORD 0 
025026 013727 002116 MOV LSOLY.CPC)+ 
025032 000000 -WORD O 
025034 005367 177772 DEC -6(PC) 
025040 001575 BNE -- 
025042 005367 177756 DEC -22¢(PC) 
025046 001367 .° 

4227 025050 005337 026550 DEC T290LY sBUMP DELAY ROUTINE DOWN 

4228 025054 001356 BNE 10% 3BR, IF MORE DELAY TIME LEFT 

4229 025056 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4233 025062 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

4234 025064 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
025064 104455 TRAP CSERDF 
025066 000164 «WORD 116 
025070 003554 - WORD SFIERR 
025072 @11666 - WORD SF IMSG 

4235 025074 208: 

4236 025074 012704 026360 MOV @T29PACKET .R4 sSUBROUTINE NEEDS PACKET ADORESS 

4237 025100 004737 010332 JSR PC .WRTICHR : ISSUE WRITE CHARACTERISTICS 

4238 025104 103407 BcSs 23% :68R, IF COMMAND ISSUED OK 

4239 025106 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4243 025112 010001 MOV RO,R1 1SAVE CONTENTS OF TSSR 

4244 025114 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC —> 
025114 104456 CSERHRD 
025116 000165 "WORD 117 
025120 004760 - WORD WRTMSG 
025122 011666 . WORD SF IMSG 

4245 025124 23%: CKLOOP sLOOP IF SELECTED 
025124 104406 TRAP CsCLP1 

4246 025126 004737 010434 JSR PC REWIND sCALL TAPE REWIND , ee 

4247 025132 103411 Bcs 308 38R, IF NO PROBLEM 

4248 025134 016501 000000 MOV y+ Saaatate R1 sGET TSSR 

4249 025140 010004 MOV RO,R sSAVE PACKET ADDRESS 

4250 025142 004737 020106 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4254 025146 ERRHRD ERRNO, T29RWN,PKTSSR sREWIND NOT ACCEPTED 
025146 104456 TRAP CSERHRD 


025150 000166 -WORD 118 
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TEST 1: WRITE TAPE MARK RETRY 

025152 030270 , -WORD  T29RWN 
0251354 011700 WORD PKTSSR 

4255 025156 308: CKLOOP sLOOP IF SELECTED 
025156 104406 TRAP CsCLP1 

42356 025160 015701 026406 MOV T29BFR+6,R1 sPICK UP XSTO 

4257 025164 010102 MOV R1,R2 sSET UP EXPECTED 

4258 025166 052702 000002 BIS @BIT1,R2 iSET B0T BIT IN EXPECTED . 

4259 025172 020102 CMP ~ sO00ES EXP = REC’D 

4260 025174 001406 BEQ sBR, IF EQUAL (OK) 

4261 025176 004737 020106 JSR Pc. ‘FAT CHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4265 025202 ERRHRD ERRNO, T2980T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
025202 104456 TRAP CSERHRD 
025204 000167 «WORD 119 
025206 027761 «WORD T29B0T 
025210 016350 EXPREC 

4266 025212 408: CKLOOP sLOOP IF SELECTED 
025212 104406 TRAP CsCLPi 

4267 025214 012737 140011 026510 MOV #140011, T29PK3S sWRITE TAPE MARK,ACK,CVC*1 COMMAND 

4268 025222 012704 026510 MOV @T29PK3 ,R4 :SET UP R4 WITH PACKET ADDRESS 

4269 025226 010465 177776 MOV Ra. TSDBCRS) s ISSUE COMMAND 

4270 025232 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4271 025236 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

4272 025242 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

4273 025246 020102 CMP R1,R2 sARE THEY EQUAL 

4274 025250 001406 BEQ 70% s8R, IF OK 

4275 025252 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4279 025256 ERRHRD ERRNO, T29WDC .PKTSSR sTSSR INCORRECT AFTER = TAPE MARK 
025256 104456 TRAP CSERHRD 
025260 000170 -WORD 120 
025262 030607 -WORD T29WwOC 
025264 011700 PKTSSR 

4280 025266 708%; CKLOOP sLOOP IF SELECTED 
025266 104406 TRAP CscLP1 

4281 025270 012703 000001 1508: MOV #1. .R3 sNUMBER OF RECORDS TO yr ™ 

4282 025274 012737 141011 026510 MOV e14i0i1. T29PKS ;WRITE TAPE MARK RETRY,ACK,CVC*1 COMMAND 

4283 025302 012704 026510 MOV @T29PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 

4284 025306 010465 177776 1558: MOV Ra, TSDBCRS) s ISSUE COMMAND 

4285 025312 004737 017124 JSR PC ,WALTF sWAIT FOR SSR TO SET 

4286 025316 016501 000000 MOV TSSRCRS),R1 sPICK UP TSSR 

4287 025322 012702 000200 MOV @SSR ,R2 3SET UP A ag he. (SSR ONLY) 

4288 025326 020102 CMP R1,R2 ;WAS STATUS GOOD 

4269 025330 001406 f BEQ 165% 3BR, IF TERMINATION WAS GOOD 

4290 025332 004737 020106 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4294 025336 ERRHRD ERRNO, T29WDC,PKTSSR sTSSR NOT CORRECT AFTER WRT TAPE M. 
025336 104456 TRAP CSERHRD 
025340 000171 -WORD i121 
025342 030607 -WORD T29WOC 
025344 011700 PKTSSR 

4295 025346 165%: CKLOOP sLOOP IF SELECTED 
025346 104406 TRAP CsCLP1 

4296 025350 012737 140401 026510 MOV #140401 , T29PKS sREAD REVERSE ,ACK, COMMAND 

4297 025356 013737 003076 026512 MOV FREE , T29RB sNUMBER OF RECORDS TO SPACE BACK 

4298 025364 012704 026510 MOV @T29PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 

4299 025370 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 

4300 025374 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4301 025400 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 


4302 025404 012702 100204 MOV @SSR!ISC!BIT2,F2 sSET UP EXPECTED 
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TEST i: WRITE TAPE MARK RETRY 
4303 025410 020102 CMP R1,R2 sARE THEY EQUAL 
4304 025412 001406 BEQ 2228 3s6R, IF OK 
4305 025414 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4309 025420 ERRHRD ERRNO, T29RDG,PKTSSR sTSSR INCORRECT AFTER SPACE CMD. 
025420 104456 TRAP CSERHRD 
025422 000172 - WORD 122 
025424 031553 - WORD T29ROG 
025426 011700 -WORD PKTSSR 
4310 025430 2228: CKLOOP sLOOP IF SELECTED 
025430 104406 TRAP CSCLP1 
4311 025432 013701 026406 MOV T29BFR+6,R1 sPICK UP XSTO 
4312 025436 010102 MOV R1,R2 3SET UP EXPECTED 
4313 025440 052702 100000 BIS #61IT15,R2 3sTMK SHOULD BE SET 
4314 025444 020102 CMP R1,R2 sIS TMK SET 
4315 025446 001406 BEQ 226% 36R, IF TMK WAS SET (GOOD) 
4316 025450 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4320 025454 ERRHRD ERRNO, T29RRN,EXPREC 3 TMK NOT SET AFTER READ REV 
025454 104456 TRAP CSERHRD 
025456 000175 ' - WORD 123 
025460 032016 . WORD T29RRN 
025462 016350 -WORD EXPREC 
4321 025464 226%: CKLOOP 3sLOOP IF SELECTED 
025464 104406 TRAP CSCLP1 
4322 025466 ENDSUB g<ceeeeececece END SUBTEST >>>>>>>>>>> 
025466 L10041: 


025466 104403 TRAP CsESUB 


CZTKHA TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


000000 
013727 
000000 


002116 
177772 
177756 
026550 
020106 


026360 
010332 


020106 
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3¢ 
é 
sTEST 1, SUBTEST 4 
8 
sVERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
sRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 
sWRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 
sRECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 
sCOMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 
4 
i- 
BGNSUS g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
71.4: 
TRAP CsBSUB 
JSR PC, T29REST sSET COMMAND PACKET 
JSR PC, T29RT2 iSET UP OTHER COMMAND PACKET 
JSR PC, T29RTS sSET UP OTHER COMMAND PACKET 
026550 MOV #10000. , T290LY sSET UP DELAY ROUTINE 
108: JSR PC, SOF INIT ;00 INITIALIZE ON CONTROLLER 
BCcS 20% 368R IF INIT WAS OK 
DELAY 250 sDELAY ABOUT .25 SECONDS 
MOV @250,(PC)> 
-WORD O 
MOV LSOLY.(PC)+ 
«WORD 0 
DEC -6(PC) 
BNE --4 
DEC -22(PC) 
BNE --20 
DEC T290LY sBUMP DELAY ROUTINE DOWN 
BNE 108 ;BR, IF MORE DELAY TIME LEFT 
JSR PC .FATCHK s<INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 
ERROF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
«WORD 124 
. WORD SFIERR 
ne -WORD SFIMSG 
MOV @T29PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
JSR 4 " wetenees sISSUE WRITE CHARACTERISTICS 
BcSs 38R, IF COMMAND ISSUED OK 
JSR bc. “EATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,.R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
. WORD 125 
-WORD WRTMSG 
-WORD SF IMSG 
238: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 
6cs 30% 38R, IF NO PROBLEM 
MOV TSSRCRS),R1 sGET TSSR 
MOV RO,R4 sSAVE PACKET ADDRESS 


H10 


JSR PC. FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T29RWN,FKTSSR sREWIND NOT ACCEPTED 


eet UAT TE abe ake RETRY 


104456 
000176 


012737 
012737 


020106 


026510 


2 
000001 026512 
026510 


140410 026510 
000001 026512 


408: 


708: 
1508: 


1558: 


1658: 
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I10 


06:13 PAGE 88-1 


T29BFR+6,R1 
R1,R2 
#BIT1,R2 
R1,R2 


40% 
PC .FATCHK 
ERRNO, T2980T ,EXPREC 


#140011, T29PK3 
@T29PK3 ,R4 
R4, . TS0BC RS) 


PC WAIT 
TSSACRS), RI 


PC .FATCHK 
ERRNO, T29WDC .PKTSSR 


#10. ,R3 

#1, T29RB 
#141011, T29PKS 
@T29PK3 ,R4 
R4,TSOBCRS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 

R1,R2 

165% 

PC .FATCHK 
ERRNO, T29WOC ,PKTSSR 


R3 

1558 

#140410, T29PK3 
#1, T29RB 


SEQ 125 
TRAP CSERHRD 
«WORD 126 
«WORD T29RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscLP1 
sPICK UP XSTO 
sSET UP EXPECT 


ED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 
sBR, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER — 


CSERHRD 
. 127 
-WORD T29B0T 
-WORD EXPREC 


sLOOP IF SELECTED 


TRAP 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER ag TAPE MARK 


CSERHRD 
-WORD 128 
«WORD T29WDC 
WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 
sNUMBER OF RECORDS TO WRITE TM 


sSET UP PACKET 

sWRITE TAPE MARK RETRY.ACK,CVC=1 COMMAND 
sSET UP R4@ WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 


sPICK UP TSSR 

sSET UP EXPECTED (SSR ONLY) 
sWAS STATUS GOOD 

3BR, IF TERMINATION WAS ae 


sINC AND CHECK FOR MORE THAN 25 os 
iTSSR NOT CORRECT AFTER WRT TAPE M 
TRAP CSERHRD 
-WORD 129 
-WORD T29WOC 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscL_PL 


sBUMP COUNTER DOWN 

;BR, IF LESS THAN 10 TAPE MARKS 
sSPACE REVERSE ,ACK,CVC=1, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 


4417 026100 


4459 026326 


3 gag TK-25 FRT END FUNC 04 


TEST 1: WRITE TAPE MARK RETRY 


026510 
177776 
017124 
000000 


100204 


020106 


002116 
177772 
177756 
026550 
020106 
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2608: 


270%: 


CKLOOP 


@T29PK3 ,R4 
R4, TS0B¢ RS) 


TSSRCRS), Ri 
essR!SCI6IT2, sR2 
222% 

PC, FATCHK 

ERRNO, T29WDE ,PKTSSR 


#100410, T29PKS 
#5, T29RB 


@SSR!SC!BIT2,R2 
R1,R2 

2608 

250 


T290LY 

2303 

PC .FATCHK 

ERRNO, T29SDG,PKTSSR 


T29BFR+14,R1 
Ri 


TCHK 
ERRNO, T29RIB ,EXPREC 


SEQ 126 


sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

s6R, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER —— 


CSERHRD 
-WORD 130 
«WORD T29WDE 
PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSPACE REVERSE ,ACK, COMMAND 
sNUMBER OF RECORDS TO SPACE BACK 
iSET UP_R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
sNEED DELAY 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
EXPECTED 


3SET UP 

sARE THEY EQ@vVAL 

s8R, IF OK 

sDELAY ABOUT .25 SECONDS 
MOV #250,CPC)+ 
MOV LSOLY,.CPC)>+ 
-WORD O 
DEC -6(PC) 
BNE “4 
DEC -22(PC) 
BNE --20 


sLOOP ROUTINE 

sLOOP BACK IF NOT ENOUGH DELAY 

sINC ANO CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER — CMO. 


CSERHRD 
-WORD 131 
-WORD T29SD0G 
-WORD PKTSSR 
3LOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP XST3 

sSET UP EXPECTED 

sRIB SHOULD BE SET 

sIS RIB SET 

s8R, IF RIB WAS SET (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
3 TMK NOT SET AFTER READ REV 


TRAP CSERHRD 

-WORD 132 

-WORD T29RIB 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP CsCLP1 


K10 
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4460 


017362 
023704 


3308: 


163$: 


CKLOOP 
ENDSUB 


JSR PC, TSTLOOP 
BCC 163% 

JMP T29L00P 
EXIT TST 


SE@ 127 


sLOOP IF SELECTED 
TRAP CsCLP1 
3<eeeececeee END SUBTEST >>>>>>>>>>> 
L10042: 


TRAP CsESUB 


300 WE NEED TO ITERATE TEST 
3BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CsExIT 
«WORD 110036-. 


L10 
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Feet REE Tab Hake Re fay — s S50 128 

4471 3¢ 

4472 ;LOCAL STORAGE FOR THIS TEST 

4 i- 

4475 026352 .BLKB = :10-<. - TUV2AE7> 

4477 026360 T29PACKET sCOMMAND PACKET FOR TEST 

4478 026360 014004 .WORD 14004 }WRITE CHARACTERISTICS COMMAND, WITH CVC*1. ACK 
4479 026362 026370 ;WORD T29DATA sADDRESS OF CHARACTERISTICS BLOCK 
4480 026364 000000 7WORD 0 

4481 026366 000012 7WORD 10. sSTARTING VALUE OF BLOCK SIZE 
4482 026370 T29DATA: ;CHARACTERISTICS DATA BLOCK 

4483 026370 026400 .WORD T29BFR sADORESS OF MESSAGE BUFFER 

4484 026372 “WORD 0 

S 026374 000024 “WORD 20, ;LENGTH OF MESSAGE BUFFER 
4486 026376 000000 "WORD 0 
4487 026400 T29BFR: :BLKW 25. ;MESSAGE BUFFER 
3 

4489 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
4a Fy 

4492 026462 .BLKB =-:10-<. - TUV2AE7> 

4494 026470 T29PK2: 

4495 026470 .WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK . 
4496 026472 026520 “WORD T29BF2 sADDRESS OF SELECT BLOCK DATA 
4497 026474 000000 “WORD 0 

4498 026476 000006 ‘WORD 6. ;SIZE OF DATA PACKET 

4500 026500 “BLKB 10-<. - TUV2AE7> 

4502 026510 T29PK3; 

4503 026510 140005 .WORD 140005 ;WRITE TAPE MARK RETRY COMMAND, CVC=1 AND ACK 
4504 026512 T2ORB: 

4505 026512 003076 T29WB: .WORD FREE ;ADDRESS OF WRITE BUFFER 

4506 026514 000000 “WORD 0 

4507 026516 000000 T29SZ: ‘WORD 0 ;SIZE OF BUFFER (EXTENT) 

4508 EVEN 

4509 

4510 026520 T298F 2: 

4511 026520 010 T298S0: .BYTE 10 ;BSELO AREA 

4512 026521 200 T29BS1: .BYTE 200 ;BSEL1 AREA 

4513 026522 000000 T29S2:  :WORD 0 3SEL 2 AREA 

4514 026524 000000 T2983: [WORD 0 ;DATA AREA 

4516 sTAPE MOTION PACKET COMMAND VALUES 

4518 026526 140001 T29RN: .WORD 140001 ;READ DATA 

4519 026530 140401 T29WDR: [WORD 140401 ;READ DATA REVERSE 

4520 026532 141001 T29CON: :WORD 141001 ;READ PREVIOUS OPP=0 

4521 026534 161001 "WORD 161001 ;READ PREVIOUS OPP=1 

4522 026536 141401 "WORD 141401 ;WRITE TAPE MARK RETRY NEXT OPP=0 
4523 026540 161401 "WORD 161401 ;WRITE TAPE MARK RETRY NEXT OPP=1 
4524 026542 177777 WORD 177777 3END OF DATA 

a 

4526 026544 000000 T29CNT: .WORD 0 ;TAPE RECORD COUNTER STORAGE AREA 
4528 026546 000000 T29RSZ: .WORD 0 sRECORD STORAGE SIZE AREA 

4529 026550 000000 T290LY: ‘:WORD DELAY COUNTER STORAGE AREA 


CZTKHA TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 


032140 


032160 
032162 


012701 


012721 


026360 
140004 
026370 


000012 


M10 
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3¢ 
sLOCAL TEXT MESSAGES FOR TEST 


3° 


‘Drive is OFFLINE’ 

‘Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)’ 
‘WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (XSTO)’ 

*‘TSSR Incorrect After READ DATA Command’ 
‘WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed 


‘WRITE TAPE MARK RETRY Previous (Read Forward, Space Reverse) Command Failed 


‘POSITION (Space Command) Failed, TSSR Not Correct’ 
‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

‘TSSR Not Correct After Illegal Mode Bits Set’ 
‘Illegal Mode Bits, cot bee To Set ILC Bit In xSTO’ 
‘WRITE TAPE MARK RETRY COMMAND Not Accep 

‘TSSR Not Correct After SPACE REVERSE DATA —— 


‘TSSR Not Correct After WRITE Command’ 
‘Tape Not At BOT After REWIND Command’ 
‘Date Written To T Not Equal To Data Read From T 

WRITE TAPE MARK RETRY DATA OV OVER EOT GAVE NO TAPE STATUS ALERT’ 
'TSSR Not Correct After SPACE REVERSE Into BOT’ 
"Rewind (POSITION) Command Not Accepted’ 
‘RAM Error, Correct Data Pattern Not In Ram 
‘TSSR Init. Failed After WRITE TAPE MARK RETRY COMMAND‘ 
*‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command. SWB Bit Set’ 
‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command’ 
‘CvC Set, Didn''t Reset VCK In Buffer’ 
‘TSBA Not Correct After WRITE TAPE RETRY DATA Command’ 
‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
‘Reading Long Record Failed To Set RLL Bit In XSTO' 
‘Reading Ls Record Failed To Set RLS Bit In XSTO’ 
‘Residual Byte Count Incorrect After Short Record Read’ 
a Long Re sorere Failed To Give Tape Status Alert’ 
‘Date WRITE MARK RETRY From Tape Not Correct, After SWB=1' 
‘TSSR wt Be, After READ REVERSE Into Tape Mark’ 
‘TSSR Incorrect After SPACE REVERSE Into Tape Mark’ 
‘WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (XST3)' 
‘TMK CXSTO) Failed To Set After READ REVERSE Into Tape Mark’ 
-ASCIZ ‘Write Tape Mark Retry’ 


; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 


T29REST: 


sSAVE THE REGISTERS 


@T29PACKET ,R1 sSTART OF THE PACKET 

#140004 ,(R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, CvC=1 
@T29DATA,CR1): sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 


#10.,CR1)+ sSIZE OF DATA BLOCK IN BYTES 


Ten uate” 


4586 
458 


032166 


TaBe MARR RETRY 


012721 
005021 


026400 
000024 
000000 
000030 
177777 


026400 64%: 


T29RT2: 


T29RTS: 


N10 
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@T29BFR,CR1)+ 
CR1)+ 
#20.,CR1)+ 

CR 


@T29PK2 ,R1 
#140006 ,,(R1)+ 
eT29BF2,CR1)+ 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO (0) 

sNUMBER OF LOCATIONS TO BE CLEARED 
FALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 

sCHECK FOR END OF LOOP 

sKEEP GOING UNTIL DONE 

sRETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CVvC=1, 
sADDRESS OF DATA BLOCK 

FEXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


sRETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF DATA BLOCK 
NDED ADDRESS 


sEXTE E 
sSIZE OF ode BLOCK IN BYTES 


;RETURN 


L10036: 
TRAP 


SEQ 130 


CsETST 
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Bil 


-SBTTL TEST 2: SKIP TAPE MARKS 
ad 


ITHIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
IFORUARD AND SKIP TAPE HARKS REVERSE COPPIANDS. PROPER OPERATION 


SUNDER CONTROL OF SKIP TAPE MARKS 

sSTOP CESS) AND ENABLE TAPE MARKS STOP ore B07 (ENB) BITs SPECIFIED 

iBY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF Tre 
sFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN << 

iWITH AN APPROPRIATE SERIES OF OF DATA RECORDS AND/OR TAPE MARKS 

3AND/OR DOUBLE TAPE MARK 

3 


a 
THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 
a 


BGNTS1 20 

CLR FATFLG it FATAL ERROR FLAG 

CLR KTFLG sHOLD OFF KT11 

MOV @€PRT1 EPRTSw sPRIMARY ERROR MESSAGE 

MOV @TSTSOID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP s00 INITIAL TEST SETUP 

MOV @1,LOOPCNT sPERFORM 1 ITERATIONS . 


se 


b 
sTEST 2, SUBTEST 1 
- 


VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 
3A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 
2 Ray REWOUND, THEN WRITTEN WITH | te 08 ILES”s 


3 TERM 8 APE MARK 

sCONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 
sTME FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 
sVERIFIED BY READING THE DATA, THE TAPE IS AGAIN 
sREWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 
sCOMMANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 
TERMINATION, THK*1 STATUS, TAPE POSITION VIA READ 
sCOMMAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 
sCOMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO 
THE ESS AND ENB CONTROL BITS. ALL 
sCOMBINATIONS OF ESS prog ENB ARE USED (00,01,10, 

311)s OPERATION SHOULD BE THE SAME IN EACH CASE FOR 
sTHIS SUBTEST. 


TSOLOOP : 
g>>>>>>>>>>2>> BEGIN SUBTEST »>>>>>> >>> 
T 


ce oa Cs8SUB 


SEQ 131 


ay 


032526 
4725 032532 


032534 
4727 032536 


000000 
013727 
000000 


CZTKHA TK-25 FRT END any oa 
TEST 2: SKIP TAPE MARK 


002116 
177772 
177756 
036546 
020106 


036360 


010332 
020106 


010434 
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JSR PC, TSOREST T COMMAND PACKET 

CLR CN ete AR FILE COUNTER 

JSR PC, TSORT2 sSET UP OTHER COMMAND PACKET 

JSR PC, TSORTS sSET UP OTHER COMMAND PACKET 

036546 MOV 6 -eT3SOOLY sSET UP DELAY COUNTER 
108: JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 

ecs 208 s6R IF INIT WAS OK 

DELAY 250 sDELAY ROUTINE CALL 
MOV 0250 ,(PC)-+ 
-WORD O 
MOV LSOLY,¢(PC)> 
«WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE --20 

OEC TSOOLY s6URPP COUNTER 

BNE 108 s6R, IF MORE COUNTING TO DO 

JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 i CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SF IMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CsEROF 
-WORD 201 
-WORD SFIERR 
-WORD SFIMSG 

208: 
MOV @TSOPACKET ,R4& sSUBROUTINE NEEDS PACKET ADORESS 


Cil 


8 9286606606686 686666866066066068 0600006060666 0606006606066060060688 


ISSUE WRITE CHARACTERISTICS COMMAND 


JSR Si "one + a WRITE CHARACTERISTICS 
ecs IF COMMAND ISSUED 
JSR BC Farce SING AND CHECK 


sSAVE CONTENTS OF ‘SSR 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG iWRITE CHARACTERISTISC FAILED 


23%; CKLOOP sLOOP IF SELECTED 


SOSOOOOESOOEOEOOEEOEEEEEEEEEEEEEEEOEEEEEEEOEEEEEEEEEEOEOEEE 
8 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


g 
8 20686685 66066080650606666666860668606060660608600066006606060808 


JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
Bcs 30% s8R, IF NO PROBLEM 

MOV RO,R4 sGET PACKET ADORESS 

MOV TSSRC(RS),R1 sGET STATUS REGISTER 


OK 
FOR MORE THAN 25 ERRORS 


CSERHRO 
202 
WRTMSG 
SF IMSG 
CscLP1 


Dil 
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SEQ 133 
TEST 2: SKIP TAPE MARK 


4726 032542 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4732 032546 ERRHRD ERRNO, TSORWN,PKTSSR }REWIND NOT ACCEPTED 
032546 104456 TRAP CSERHRO 
032550 000315 -WORD 203 
032552 040150 «WORD fT 
032554 011700 PKTSSR 
4733 032556 308: CKLOOP sLOOP IF SELECTED 
aves 032556 104406 TRAP CsCLP1 
4735 §OOOO000000000060006 OE60SbOS OOS EOoEEEEEEEEEEEDEEOEEEEEEEE 
4736 ’ 
aya sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
’ 
4739 $ OOOOOO00000000000000000000000000000600000b00CCESEEEb0CC8 
4740 
4741 032560 013701 036406 MOV ae “yaa Ri sPICK UP XSTO 
4742 032564 010102 MOV R1,R sSET UP EXPECTED 
4743 032566 052702 000002 BIS *iti. R2 sSET BOT BIT IN EXPECTED 
4744 032572 020102 chp R1,R2 sD0ES EXP = REC‘D 
4745 032574 001 BEQ 408 s6R, IF EQUAL (OK) 
4746 032576 004737 020106 JSR PC FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4750 032602 ERRHRD ERRNO, TSOBOT ,EXPREC i TAPE NOT AT BOT AFTER REWIND 
032602 104456 TRAP CSERHROD 
032604 000314 -WORD 204 
037606 037731 -WORD TS3OBOT 
032610 016350 WORD EXPREC 
4751 032612 408: CKL 00P sLOOP IF SELECTED 
032612 TRAP CsCLPi 
4752 032614 012737 000001 036544 MOV #1. ,TSOFCN sSET “FILE” COUNTER AT 1 DECIMAL 
4753 032622 012703 000001 648; MOV #1,R3 sONE RECORD PER “FILE” 
4754 032626 013737 003076 036512 65%: MOV FREE , TSOWS iSET UP PACKETS’S WRITE BUFFER 
pits 032634 012737 003720 036516 MOV #2000. , T30SZ sSET RECORD SIZE AT 2000 BYTES 
irl $ 000000600000600000000000600600000000060060006000000000000008 
i 
rite sWRITE DATA,ACK,CvC*i COMMAND 
’ 
arn MOI irriririiriirrirriirirrirririiriririiityTT Titty) 
4763 032642 012737 14 036510 MOV #140005, TS0PKS sWRITE DATA,ACK,CvC*1 COMMAND 
4764 032650 012704 036510 MOV @TSOPKS ,.R4 sSET UP R4 WITH PACKET ADDRESS 
4765 032654 013702 036544 MOV TSOFCN,R2 sGET FILE COUNTER 
4766 032660 R2 ~~ TO UPPER BYTE 
4767 032662 010301 MOV R3,R1 sGET RECORD COUNTER 
4768 032664 ADD R2,R1 iFILE COUNTER IN UPPER, RECORD @ LOW 
4769 032666 010177 150204 MOV R1,QFREE sMOV TO OUT PUT BUFFER 
4770 032672 010465 177776 MOV R4, TSOBC(RS) s ISSUE COMMAND 
4771 032676 004737 017124 JSR »WAITF sWAIT FOR SSR TO SET 
4772 032702 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
4773 032706 012702 000200 MOV @SSR,R sSET UP EXPECTED 
4774 032712 020102 CMP R1,R2 s ARE Y EQUAL 
4775 032714 001406 BEQ 70% s8R, IF OK 
4776 032716 004737 020106 JSR PC .FATCHK s INC CHECK FOR MORE THAN 25 ERRORS 
4780 sSOFT ERROR, DON'T CARE ABOUT WRITE 
4781 sCOMMAND'S RESULTS - CHECKING SKIP 
4782 sTAPE MARK COMMAND 
4783 032722 ERRSOFT ERRNO, TSOWDD ,.FKTSSR sTSSR INCORRECT AFTER WRITE DATA 


‘2 


TKHA_ TK 


ST 2: 


4832 


012737 


012737 


Skip’ TAPE “hanks 


141011 
te) 


036544 
036544 


141011 
0 


Ell 
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708: CKLOOP 
INC R 
CMP R3,021 
BNE 65% 


SEQ 134 
TRAP CSERSOF T 
-WORD 205 
«WORD T30WDD 
PKTSSR 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
+t a RECORD COUNTER DOWN 
‘ 

s68R, IF NOT AT 20 RECORDS WRITTEN 


FSSSHASHSSSHSHSHASSHASHEHOESEEEHSESEKEEOEEEEESESEDEEEEEEEEE 


iWRITE TAPE MARK,ACK,CVC*1 COMMAND 


a 
PARMERKAAAKHEHEAAASSABASASESALALAAEMHAMLHARHSAAKEARKRAAEHEEH 


036510 MOV ys nt nnd SL ta sWRITE TAPE MARK,ACK.CVC=1 COMMAND 
MOV te at de sSET UP R4 WITH PACKET ADDRESS 
MOV Ra. TSOBCRS) s ISSUE COMMAND 
JSR PC .WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS),R1 sPICK UP TSSR 
MOV @SSR ,R2 sSET UP EXPECTED (SSR ONLY) 
CMP R1,R2 sWAS STATUS GOOD 
BEQ 160% 38R, IF TERMINATION WAS GOOD 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSOWDC,.PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
-WORD 206 
«WORD TS3OWDC 
-WORD PKTSSR 
160%: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
INC TSOFCN sCOUNT THE “FILE” COUNTER DOWN 
000006 CMP T3OFCN, 06 sWRITE S FILE TO TAPE 
BNE 648 s8R, IF NOT AT S FILES WRITTEN 
fOORROSOOOEDEOEEAEEEEESSEDOERESOREEEEEEEEEAEEDEOEEEEEEEEEEE 
$ 
sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
3 
J ORODOOOOOEEEEESEEEEEEEESEDEEEEEEREDOEEEEDOOEEEOEDREEEEEEESE 
036510 MOV #141011, TSOPK3 sWRITE TAPE MARK,ACK.CVC=1 COMMAND 
MOV @TSOPK3,R4 sSET UP R4 WITH PACKET ADORESS 
MOV R4, TSOBCRS) sIS OMMAND 
JSR PC ,WAITF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sPICK UP TSSR 
MOV SR,R2 3SET UP EXPECTED (SSR ONLY) 
CMP R1,R2 ;WAS STATUS GOOO 
BEQ 65$ 3BR, IF TERMINATION WAS 


JSR Cc. 
ERRHROD ERRNO, TSOWDC, PKTSSR 


165s: CKLOOP 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR NOT CORRECT AFTER WRT TAPE M. 


TRAP CSERHRD. 

-WORD 207 

-WORD TSOWDC 
WORD PKTSSR 


sLOOP IF SELECTED 


CZTKHA TK-25 FRT END FUNC 04 
APE MARKS 


TEST 2: SKIP T 


033106 
3 


4840 033110 
4841 033114 


033140 


4857 033142 


4868 033176 


4870 033202 
4871 033206 


104406 


013701 
010102 
052702 


104406 
012703 


011337 
012704 


004737 
103407 
004737 
010001 


104456 


010434 


000000 
020106 


036526 


036376 
036360 


010332 
020106 


Fil 
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TRAP 


F SSHAAAAHSAHALESSESSEADESASOSASADAEASESEOSEASSEHEEEEEEAEEHEEEE 


4 
s ISSUE A REWIND TO TAPE ORIVE AND WAIT FOR SSR TO SET 


3 
GRAAL AAARERERADHAASE AH SHARHDAHAHAHHAARHAAADAAAHERAEHEEAAEEH 


JSR PC REWIND 
Bcs 170% 

MOV RO,R4 

MOV TSSRCRS),R1 
JSR PC ,.FATCHK 


ERRHRD ERRNO, TSORWN,PKTSSR 


170%: CKLOOP 


— TAPE REWIND COMMAND 
IF NO PROBLEM 


iGET PACKET ADORESS 
sGET STATUS REGISTER 
sINC AND CHECK FOR MORE THAN 25 
; REWIND NOT ACCEPTED 


sLOOP IF SELECTED 


FSOHAAHRAAHRHHRAARLAHEAHHHAAARAOAHKOKKEHAHSHHAKREAAAKHALAHSHARSS 


3 
3;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


3 
PRERREAREEHKESALLAOHLEDADAHEHRHAALSARSAAHDERSEHARA HLS KASCHEHAR HED 


MOV T3OBFR+6,R1 

MOV R1,Re2 

BIS @BIT1,R2 

CMP R1,R2 

BEQ 180% 

JSR PC .FATCHK 

ERRHRD ERRNO, TSOBOT ,EXPREC 
1808: CKLOOP 

MOV @T3SOIMV.RS 
1628: MOV (R3),T30ETM 

MOV @TSOPACKET ,R4 


3 
s ISSUE WRITE CHARACTERISTICS COMMAND 


sPICK UP XxSTO 
sSET UP EXPECTED 
3SET BOT edd . on 


sINC AND CHECK FOR MORE THAN 25 
sTAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
. WORD 
. WORD 


TRAP 


sLOOP IF SELECTED 


3SET UP POINTER TO COMMAND TABLE 


sGET NEXT C 


SEQ 135 


CsCLP1 


CsCLP1 


ERRORS 
CSERHRD 


209 
T30B0T 
EXPREC 


CscLP1 


OMMAND 
sSUBROUTINE NEEDS PACKET ADORESS 


F SSSSOSSSHSHAHASSESEHESSSSOSASESHSASHAAHEHEEEASEHEEEOEKEEEESE 


é 
$ 9220666666666666666866666064606666660066666006660660600664600608 


JSR PC,.WRTCHR 
Bcs 188% 
JSR PC ,.FATCHK 


MOV RO,R1 
ERRHRD ERRNO, WRIMSG, SF IMSG 


sISSUE WRITE CHARACTERISTICS 
3BR, IF COMMAND ISSUED OK 

sINC AND CHECK FOR MORE THAN 25 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC —s 


ERRORS 


CSERHRD 


TES oT sRte” FhPENRaRe™ 


033372 
033372 


033374 


012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 


012727 
000000 
013727 
000000 


005367 
001375 
00536 


013701 


141010 
00000 


002116 
177772 
177756 
036546 
000200 


020106 


036406 
100000 


020106 


Gil 
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188%: CKLOOP 


F SHHSASEHSSEHASASSEEESESHEHAADEEEEEHEEEEEEEEEEEEAEHEEEEEEESD 


é 
sSKIP TAPE MARK ,ACK,CVC*1 COMMAND 


3 
FFSOAHSASSHSSAAESHSOSHEHEAAEADEHEEEESEEEEEEESEEEEAEEEEOEEEOES 


036510 MOV #141010, TSOPKS 
036512 MOV #1, TSORB 
MOV @TSOPKS ,R4 
189%: MOV R4, TSDBCRS ) 
036546 MOV 065006. » TSOOLY 
190%: JSR PC ,WAITF 
MOV TSSRCRS),R1 
BIT @SSR,R1 
BNE 1918 
DELAY 250 
DEC TSOOLY 
BNE 190% 
191%: MOV @SSR,R2 
CMP R1,R2 
BEQ 192% 
JSR PC ,.FATCHK 
ERRHRD ERRNO, TSOSKM,PKTSSR 
192%: CKLOOP 


SEQ 136 
-WORD 210 
-WORD WRTMSG 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 
sSKIP TAPE MARK, saree a COMMAND 
sSET UP NUMBER T 
sSET UP R4 WITH PACKET ADORE SS 
s ISSUE COMMAND 
sSET UP DELAY COUNTER 
sWAIT FOR SSR TO SET 
sPICK UP TSSR 
sIS SSR SET YET 
sBR, IF SSR IS SET 
sCALL DELAY ROUTINE 
MOV @250.(PC)-+ 
-WORD O 
MOV LSOLY,(PC)- 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE --20 


sBUMP DELAY ROUTINE 

sBR, IF MORE DELAY TO GO 

sSET UP EXPECTED (SSR ONLY) 

;WAS STATUS GOOD 

;BR, IF TERMINATION WAS GOOD 

sINC AND CHECK FOR MORE THAN 25 ERRORS 

iTSSR NOT CORRECT AFTER SKIP TAPE M. 
TRAP CSERHRO 


-WORD 211 

-WORD  TS3OSKM 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLPi 


BS SSSASSHESHSSHESS *SOSOEHEEEEEASESEEESEEEEEEEEEEEEOEEEEEEEOEDEE 


3 
sGET EXTENDED SATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


a 
8 92800666686 666668 68666 6666466606606060666060660660660660060606006 


MOV gy pla R1 
MOV R1,R 

BIS @B1T15,R2 
CMP R1,R2 

BEQ 1958 

JSR PC .FATCHK 


ERRHRD ERRNO, TSOTMK ,EXPREC 


sPICK UP XxSTO 

sSET UP EXPECTED 

sSET TMK BIT IN EXPECTED 

:DOES EXP = REC'D 

sBR, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTMK NOT SET AFTER WRT TAPE MARK 


CZTKHA TK-25 FRT END FUNC 04 
TEST 2: SKIP TAPE MARKS 


4978 


013737 


012737 


177777 
020400 
003076 


147342 
177777 


020106 


001001 
147304 


020106 


Hil 
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195%: CKLOOP 
MOV @177777,R0 
JSR PC .FILLMEM 
036512 MOV FREE , TSORB 


TRAP CSERHROD 

«WORD 212 

«WORD TS3OTMK 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLP1 


sVALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 
sSTARTING READ BUFFER ADDRESS 


SPEHRAHKALAAKLHSHERADEAASAREHAAAHAHHAEEAAEALRERERSEEAEARHABERSE ES 


;READ FORWARD ,ACK,CVvC=1 COMMAND 


3 
FRERAAARARKLHHALEADAORHEABHAHERAHAHRAGHERSAAARSALARERSHAADBEH 


036510 MOV #140001 , TSOPKS 
MOV @TSOPKS ,R4 
036516 MOV #2000. , T30SZ 


MOV R4, TSOBCRS) 

JSR PC ,WALTF 

MOV TSSRCRS),R1 
@SSR ,R2 


MOV ‘ 

CMP R1,R2 

BEQ 200% 

JSR PC .FATCHK 

ERRHRD ERRNO, TSORDF ,PKTSSR 
200$: §CKLOOP 

MOV @FREE ,R1 

MOV @177777,R2 

CMP R1,R2 

BNE 2208 

JSR PC .FATCHK 

ERRHRD ERRNO, TSODTR,EXPREC 
220%: CKLOOP 

MOV #1001 ,R2 

MOV OFREE ,R1 

CMP R2,R1 

BEQ 228% 

JSR PC .FATCHK 

ERRHRD ERRNO, TSOPTB,EXPREC 
228%: CKLOOP 


sREAD FORWARD,ACK,CVC=1 COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER ons eee 


CSERHRD 
«WORD 213 
-WORD TS3OROF 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCL.P1 


sFIRST LOC IN READ BUFFER 

sEXPECTEO IF NO DATA TRANS. 

sDID ANY DATA GET TRANSFERRED 

;BR, IF NO DATA TRANS (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sDATA TRANSFERRED ON READ TAPE MARK 


TRAP CSERHRD 
-WORD 214 
-WORD TS3OODTR 
-WORD EXPREC 


sLOOP IF SELECTED 

TRAP CsCLP1 
sSET UP RECORD a EXPECTED (FILE 2) 
sBR, IF EQUAL (OK 


) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sRECORD POSITION WAS MGT CORRECT 


CSERHRD 
-WORD 215 
-WORD TSOPTB 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


TEST skip’ Thee NRanis °* 


033722 
033722 


013701 


177777 
033202 


Til 


MACRO M1200 20-APR-84 08:13 PAGE 92-7 


SEQ 138 


F SSSHASESASSESSASEHASESESESASSEHEEESEEESEEEEESEEEESEHEEEEDEE 


; 
s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


6 
FPHSAMHASASSSHOHAASESEEEEESEHAEEEEEEEEEEOEEEOEEEEEEEEEEOEKEE 


JSR PC, —— 


ecs 230 
MOV RO,R4 
MOV Mt yr! RS),R1 


JSR PC .FATCHK 
ERRHRD ERRNO, TSORWN,PKTSSR 


230%: CKLOOP 


sCALL TAPE REWIND COMMAND 
s6R, IF NO PROBLEM 
sSAVE PACKET ADDRESS 
sGET TSSR STATUS 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 


-WORD 216 
-WORD T3ORWN 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


F POSSASAHAHASHEASHASESAASASEAESESEASEDAESASESEOEEEOAEEEEDESD 


i 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


a 
§ SSASSHSOSSSSASESSESSASASEHEEOESEEEESEEEDEEEAEEEAAEEEOEEEEEE 


MOV T30BFR+6,R1 


R1,R2] 
BIS eBIT1,R2 
CMP R1,R2 
BEQ 240% 
JSR PC, 4 HK 


240%: CKLOOP 
TST CR3)> 
MOV (R3),R1 
CMP R1,0177777 
BEQ 3308 
JMP 182% 

336%: CKLOOP 
ENDSUB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
OOE REC'D 


sINC ANO CHECK FOR MORE THAN 25 ERRORS 
i TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 217 
-WORD  T3OB0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CscLP1L 


sPOINT TO NEXT eat 


MORE 
sLOOP IF SELECTED 
TRAP CSCLP1 
3<eeeececeec<e END SUBTEST >>>>>>>>>>> 
L10044; 
TRAP CsESUB 


Jil 


TKHA TK- FRT_END FUNC 04 MACRO M1200 20-APR-84 08:13 PACE 93 
$eey 2: skip T MARKS = om 
5022 s¢ 
5023 3 
3088 sTEST 2, SUBTEST 2 
3 
5026 ;VERIFIES THAT SKIP TAPE MARKS COMMANDOS WITH A TAPE 
5027 sMARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
5028 3;0F 2,3,8,64,256, AND 512 ARE TESTED. THE 
Sone 3: TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 
3 
5031 3 
5032 3 
5033 3° 
5034 
5035 033724 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033724 T2.2: 
033724 104402 TRAP CsBSUB 
5036 033726 004737 041142 JSR PC, T3OREST 3SET COMMAND PACKET 
5037 033732 005037 036544 CLR T3OFCN sCLEAR FILE COUNTER 
5038 033736 004737 041234 JSR PC, T3ORT2 3SET UP OTHER COMMAND PACKET 
5039 033742 004737 041276 JSR PC, T3ORTS ;SET UP OTHER COMMAND PACKET 
5040 033746 012737 176750 036546 MOV #65000. , TSODLY 3SET UP DELAY COUNTER 
5041 033754 004737 016650 108: JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 
5042 033760 103426 6cs 20$ 368R IF INIT WAS OK 
5043 033762 DELAY 250 sDELAY ROUTINE CALL 
033762 012727 000250 MOV €250,(PC)>+ 
033766 000000 -WORDB O 
033770 013727 002116 MOV LSOLY,CPC)+ 
033774 000000 - WORD 
033776 005367 177772 OEC -6(PC) 
034002 001375 BNE .-4 
034004 005367 177756 DEC -22(PC) 
034010 001367 BNE .--20 
5044 034012 005337 036546 DEC T3OOLY ;BUMP COUNTER 
5045 034016 001356 BNE 10$ ;8R. IF MORE COUNTING TO DO 
5046 034020 004737 020106 JSR PC, FATCHK 3 INC AND CHECK FOR MORE THAN 25 ERRORS 
S050 034024 010001 MOV RO,.R1 sCONTENTS OF TSSR REGISTER 
$051 034026 ERRDF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
034026 104455 TRAP CSEROF 
034030 000332 -WORD 218 
034032 003554 .WORD SFIERR 
034034 011666 -WORD SFIMSG 
sont 034036 208%: 
cr 034036 012704 036360 MOV @T3SOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
aes ZROEAhEERHRAOLRAGAEAEREHARKARAAALAHRALHEHEHARDAEAEABHAARESS 
3 
oooe s ISSUE WRITE CHARACTERISTICS COMMAND 
3 
sty { SESSASEASAEADEDEASEASASHESSAASESEASSESSSESSESEHESEESEHESEASEESD 
1 
5062 034042 004737 010332 JSR PC,WRTCHR : ISSUE WRITE CHARACTERISTICS 
5063 034046 103407 Bcs 23% 3;8R, IF COMMAND ISSUED OK 
5064 034050 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5068 034054 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
5069 034056 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 


034056 104456 TRAP CSERHRD 


TET or skip’ Flee Ras 


034204 
034212 


000333 
004760 
011666 
104406 


013701 


010102 


012737 


012737 
012704 


000001 


000001 
003076 
000024 


140005 
036510 


K11 
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219 
WORD WRTMSG 
WORD SFIMSG 
23%: CKLOOP sLOOP IF SELECTED 


036544 


036512 
036516 


036510 


TRAP CsCLP1 


J SAAAASAAAASAASEASESAEAASSEAAEHESASSAAAEEASEEEAEEAREEEEEEEEAED 


; 
s ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


a 
FAASAASAAASASASASSASESASEHEASEALSEERAAERAEAASEESASEESEEEEE 


JSR PC, REWIND sCALL TAPE REWIND COMMAND 

BCS 30$ 3BR, IF NO PROBLEM 

MOV RO,R4 sGET PACKET ADDRESS 

MOV TSSRCRS),R1 sGET STATUS REGISTER 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 220 

T30ORWN 

WORD PKTSSR 


30$; CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 


Perret rity 
i 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


3 
FRPAREKAREAAERHAAEAGRABKDORERAAADREAAREALARAHEARREHAAKARA AHH 


MOV T3OBFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS eeiri. Re ;SET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 40% 36R, ; EQUAL (OK) 
JSR PC ,.FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T3OB0T,EXPREC ; TAPE NOT AT BOT AFTER —- 
CSERHRD 
"MORO 221 
“WORD  T3OBOT 
-WORD EXPREC 
40%: CKLOOP ;LOOP IF SELECTED 
TRAP CscLP1 
MOV #1.,T3OFCN ;SET “FILE” COUNTER AT 1 DECIMAL 
64%; MOV #1,R35 sONE RECORD PER “FILE” 


65%: MOV FREE , T30WB iSET UP PACKETS'S WRITE BUFFER 
MOV #20. ,T30SZ sSET RECORD SIZE AT 2000 BYTES 


FERAAEAEEEEEEEEESEDEEDAEHEDEESEDESEDEEAEEEEEEEEEEEEDEDEDES 
3 

sWRITE DATA,ACK,CVC=1 COMMAND 

3 

$ PREASOEROSEEEEEEESEAEADEDDADDADEDDEDDEEEDDODDEEEDEDEREDELA 


MOV #140005, TSOPK3 sWRITE DATA,ACK,CVC=1 COMMAND 
MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 


Lil 
93-2 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE SEQ 141 
TEST 2: SKIP TAPE MARKS 
5119 034216 013702 036544 MOV T30FCN,R2 3GET FILE COUNTER 
5120 034222 000302 SWAB R2 sMOVE TO UPPER BYTE 
$121 034224 010301 MOV R3,R1 sGET RECORD COUNTER 
Si22 034226 060201 ADD R2,R1 sFILE COUNTER IN UPPER, RECORD @ LOW 
5123 034230 010177 146642 MOV R1,@FREE sMOV TO OUT PUT BUFFER 
5124 034234 010465 177776 MOV R4,TSOBCRS) s ISSUE COMMAND 
5125 034240 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 
5126 034244 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
5127 034250 012702 000200 MOV @SSR ,R2 3sSET UP EXPECTED 
5128 034254 020102 CMP R1,R2] sARE THEY EQUAL 
5129 034256 001406 BEQ 70$ 36R, OK 
5130 034260 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 2S ERRORS 
5134 3SOFT ERROR, DON'T CARE ABOUT WRITE 
5135 sCOMMAND’'S RESULTS - CHECKING SKIP 
5136 3TAPE MARK COMMAND 
5137 034264 ERRSOFT ERRNO, TSOWDD,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
034264 104457 TRAP CSERSOFT 
034266 000336 - WORD 222 
034270 037060 - WORD T30WDD 
034272 011700 PKTSSR 
5138 034274 70$: CKLOOP ;LOOP IF SELECTED 
034274 104406 TRAP CSCLP1 
5139 034276 005203 INC R3 sCOUNT THE RECORD COUNTER DOWN 
5140 034300 020327 000021 CMP R3,¢21 3AT 20 YET 
art 034304 001331 BNE 65% 368R, IF NOT AT 20 RECORDS WRITTEN 
5143 FPMAAARAAAHHASHALASAREREAAAAABADSS ( SEARARESADADARSSESAEAASE 
5144 3 
ches sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
3 
phd GRRREAAREREARKASHARAHERAAKHARHRHEAKRSEAREAHRHESHSABARHARRRKRRARAS 
14 
5149 034306 012737 141011 036510 MOV #141011, T3OPK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 
5150 034314 012704 036510 MOV @T3OPK3,R4 3SET UP R4 WITH PACKET ADDRESS 
5151 034320 010465 177776 MOV R4,TSOBCRS) s ISSUE COMMAND 
5152 034324 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 
5153 034330 016501 000000 MOV TSSRCRS), R1 3PICK UP TSSR 
5154 034334 012702 000200 MOV @SSR ,,R2 3SET UP EXPECTED (SSR ONLY) 
5155 034340 020102 CMP R1,Re2 3WAS STATUS GOOD 
5156 034342 001406 BEQ 160% ;68R. IF TERMINATION WAS GOOD 
5157 034344 004737 020106 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 — 
5161 034350 ERRHRD ERRNO, TSOWDC,PKTSSR iTSSR NOT CORRECT AFTER WRT TAPE M 
034350 104456 TRAP Cc SERHRD 
034352 000337 . WORD 223 
034354 040252 . WORD T3OWDC 
034356 011700 : PKTSSR 
5162 034360 160$: CKLOOP ;LOOP IF SELECTED 
034360 104406 TRAP CSCLP1 
5163 034362 005237 036544 INC T3OFCN sCOUNT THE “FILE” Ke DOWN 
5164 034366 023727 036544 000031 CMP T30FCN, #25. sWRITE 25 FILES TO TAPE 
or 034374 001273 BNE 64$ ;B8R, IF NOT AT 25 FILES WRITTEN 
etd § #426626 646484646646604440480464464644644640464604046664464644466064604808848 
168 3 
Et sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


5 
5171 LRHERRAESHARAREREBAMHAMRAAAAMRHLARAASHRAREHKHARRE HS SHHHEHAAHRHH 


Mii 


K- Fi - - : - 
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5172 

5173 034376 012737 141011 036510 MOV #141011, TSOPK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 

5174 034404 012704 036510 MOV @T3OPK3,R4 sSET UP R4 WITH PACKET ADDRESS 

5175 034410 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 

5176 034414 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5177 034420 016501 000000 MOV TSSR(RS), RI sPICK UP TSSR 

5178 034424 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED (SSR ONLY) 

5179 034430 020102 CMP R1,R2 sWAS STATUS GOOD 

5180 034432 001406 BEG 16 5$ s6R, IF TERMINATION WAS GOOD 

5181 034434 004737 020106 JSR PC ,FATCHK INC ANO CHECK FOR MORE THAN 25 ERRORS 

5185 034440 ERRHRD ERRNO, T3OWDC ,PKTSSR ;TSSR NOT CORRECT AFTER WRT TAPE M. 
034440 104456 TRAP CSERHRD 
034442 000340 «WORD 224 
034444 040252 - WORD T30WOC 
034446 011700 WORD PKTSSR 

5186 034450 165$: CKLOOP sLOOP IF SELECTED 

5187 034°SO 104406 TRAP CSCLP1 

5188 LORE RERAREERAADAAALKAARAERABAAREARHAADHAREKARARRHARAAHSAERA RS 

5189 H 

cioe sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

3 

5192 PReAMARKARKREAEKARARRAHARARRAMRERHREARRAHAHAS SARSRKAAKHSRRDRS 

5193 

5194 034452 004737 010434 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 

5195 034456 103411 BCS 170$ ;6R, IF NO PROBLEM 

5196 034460 010004 MOV RO,R4 sGET PACKET ADDRESS 

5197 034462 016501 000000 MOV TSSRCRS),R1 3sGET STATUS REGISTER 

5198 034466 004737 020106 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 

S202 034472 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
034472 104456 TRAP CSERHRD 
034474 000341 -WORD 225 
034476 040130 WORD T3ORWN 
034500 011700 WORD PKTSSR 

5203. 034502 170$: CKLOOP ;LOOP IF SELECTED 

S208 034502 104406 TRAP CSCLP1 

5205 PRA AARERASAAAHHRAARRREAEHAAKAMAARAKERALAHRHAEEARRERHEARDRAED 

5206 3 

od ; 3;GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

$ 

oe GREE HARKER KARARERRAAR EAE RRERERADAMARARGRRAARAKERSAARAMRASH 

S211 034504 013701 036406 MOV T3OBFR+6,R1 sPICK UP xSTO 

S212 034510 010102 MOV R1,R2 sSET UP EXPECTED 

$213 034512 052702 000002 BIS #BIT1,R2 3SET BOT BIT IN EXPECTED 

5214 034516 020102 CMP R1,R2 sD0ES EXP = REC'D 

S215 034520 001406 BEQ 180$ 3BR, IF EQUAL (OK) 

5216 034522 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5220 034526 ERRHRD ERRNO, TSOBOT,EXPREC ; TAPE NOT AT BOT AFTER REWIND 
034526 104456 TRAP CSERHRD 
034530 000342 - WORD 226 
034532 037731 . WORD T30B0T 
034534 016350 .- WORD EXPREC 

5221 034536 180$: CKLOOP ;LOOP IF SELECTED 
034536 104406 TRAP CSCLP1 


S222 034540 012737 000002 036544 MOV #2, T30FCN 3SET TO NUMBER OF SKIP “FILES” 


Nil 


MACRO M1200 20-APR-84 08:13 PAGE 93-4 SEQ 143 


FEST a: skip TAPE RARKS 


rey 034546 012703 036526 MOV @#TSOIMV,R3 sSET UP POINTER TO COMMAND TABLE 

S225 034552 011337 036376 182$: MOV CR3),T3OETM sGET NEXT COMMAND 

esos 034556 012704 036360 MOV @T3SOPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

5228 fF PARASAAEHEAASERADEAEEREREAAEAEEAEEADASAAREADREADADEAAEEREE 

S229 3 

Soee s ISSUE WRITE CHARACTERISTICS COMMAND 

Hy 

5232 FPRRERAHSAREREARASEAREDAEDADDAEDALERERESEDREEREDDARDDDAESDEE 

5233 : 

S234 034562 004737 010332 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 

5235 034566 10340 bcs 1883 36R, IF COMMAND ISSUED OK 

5236 034570 004737 020106 JSR PC .FATCHK 3 INC AND CHECK FOR MORE THAN 25 ERRORS 

5240 034574 010001 MCV RO,R1 sSAVE CONTENTS OF TSSR 

5241 034576 ERRHRD ERRNO,WRTMSG,SFIMSG ;WRITE CHARACTERISTISC FAILED 
034576 104456 TRAP CSERHRD 
034600 000343 «WORD 227 
034602 004760 -WORD WRTMSG 
034604 011666 -WORD SFIMSG 

5242 034606 188%: CKLOOP ;LOOP IF SELECTED 

sacs 034606 104406 TRAP CSCLP1 

5244 Peirrrrtrt rrr it ttt ti iti titiitititi Ti TttTt itt TT TT tTT TTT TTT tT 

5245 3 

coe sSKIP TAPE MARK,ACK,CVC=1 COMMAND 

3 
s § PRRARROEEEAEEEEEEEEEODEDEOEOEEO46400466066600000044000008 
4 

5250 034610 012737 141010 036510 MOV #141010, T30PK3 sSKIP TAPE MARK,ACK, eens COMMAND 

S251 034616 013737 036544 036512 MOV T3OFCN, T3ORB ;SET UP NUMBER TO SKIP 
034624 012704 036510 MOV @T3OPK3 ,R4 iSET UP R4 WITH PACKET ADDRESS 

S253 034630 010465 177776 189$: MOV R4,TSOBCRS) s ISSUE COMMAND 

S254 034634 012737 176750 036546 MOV 6 » T3ODLY ;SET UP DELAY COUNTER 

S255 034642 004737 01712 190$: JSR PC ,WAILTF sWAIT FOR SSR TO SET 

S256 034646 016501 MOV TSSR(RS), R1 sPICK UP TSSR 

5257 034652 032701 000200 BIT @#SSR,R1 3IS SSR SET YET 

S258 034656 001017 BNE 191$ ;BR, IF SSR IS SET 

5259 034660 DELAY 250 sCALL DELAY ROUTINE 
034660 012727 000250 MOV #250,CPC)+ 
034664 000000 -WORD O 
r?) 013727 002116 MOV LSDOLY,CPC)+ 
034672 000000 -WORD O 
034674 005367 177772 DEC -6(PC) 
034700 001375 BNE -4 
034702 005367 177756 DEC -22¢ PC) 
034706 001367 BNE -20 

5260 034710 005337 036546 DEC T30D0LY sBUMP DELAY ROUTINE 

5261 034714 001352 BNE 190$ ;8R, IF MORE DELAY TO GO 
034716 012702 ©00200 191$; MOV #SSR,R2 3SET UP EXPECTED (SSR ONLY) 

5263 034722 020102 CMP R1,R2 sWAS STATUS GOOD 

5264 034724 001406 BEQ ty Bl ;68R, IF TERMINATION WAS GOOD 

5265 034726 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5269 034732 ERRHRD ERRNO, T30SKM,PKTSSR sTSSR NOT CORRECT AFTER SKIP TAPE M. 
034732 104456 TRAP CSERHRD 
034734 000344 «WORD 228 
034736 037004 . WORD T3OSKM 


er 2, a tee 
TEST 2: SKIP TAPE MARK 


011700 
104406 


013737 


012737 


036406 
100000 


020106 


177777 
020400 
003076 


145772 
177777 


020106 
” 


Ble 
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036512 


036510 
036515 


1928: CKLOOP 


t 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


Q 
F SOSSOHSHSSSHSSSOSHHSOHSOSOHEEHOSESEEEEHEHOHEESHEEEEEEOEOOE 


MOV TSOBFR6,R1 

MOV R1,R2 

BIS aiTiS. Re 

CMP R1,R2 

BEQ 1958 

JSR PC .FATCHK 

ERRHRD ERRNO, TSOTMK,EXPREC 
1958; CKLOOP 

MOV @177777,RO0 

JSR PC .FILLMEM 

MOV FREE , TSORB 


SEQ 144 
.WORD  PKTSSR 

sLOOP IF SELECTED 
TRAP = CBCLP1 

sPICK UP xSTO 

sSET UP EXPECTED 

iSET_ THK BIT IN EXPECTED 

:D0ES EXP = REC‘D 

s8R, IF EQUAL (OK) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 

THK NOT SET AFTER WRT TAPE MARK 
TRAP  CSERMRO 
.WORD 229 
"WORD TSOTMK 
“WORD EXPREC 


sLOOP IF SELECTED 
TRAP CsCLP1 


sVALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 
sSTARTING READ BUFFER ADDRESS 


ESSRASNRHASHSSAHHSAHSABHHHHOEHASHHSHHHHAHCHSSHHHESHEHHEABHEDHADOD 


TREAD FORWARD. ACK,CVC*1 COMMAND 


Ov #140001 , TSOPKS 

MOV @TSOPKS ,R4 

MOV #20. ,T30SZ 

mov R4, TSDB(RS) 

JSR PC ,WAITF 

MOV TSSACRS),R1 

MOV SR ,R2 

chp R1,R2 

BEQ 200% 

JSR PC .FATCHK 

ERRHRD ERRNO, TSOROF ,PKTSSR 
2008: CKLOOP 

mOv @FREE .R1 

MOV @177777,R2 

chp a3 .08 

BNE 220 

JSR PCF PATCH 


ERRHRD ERRIO, TSODTR,EXPREC 


sREAD FORWARD ,ACK.CvC*1 COMMAND 

sSET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


s ISSUE C 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 


26R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
«WORD 230 
. WORD TSOROF 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPL 
1FIRST LOC IN READ BUFFER 


sEXPECTED IF NO DATA TRANS. 

sOI0 ANY DATA GET TRANSFERRED 

s8R, IF NO DATA TRANS (GOOD) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 

iDATA TRANSFERRED ON READ TAPE MARK 
TRAP CSERHRO 


5331 035156 
5335 035162 
035162 


013701 


FEMI" ship Flee ARES * 


036544 


000001 
145724 


020106 


Cle 
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2208:  CKLOOP 
MOV TSOFCN,R2 
INC 
SWAB 
eIs @81TO,R2 
GFREE RL 
R2,R1 
BEQ 228 


JSR ATCHK 
ERRHRD ERRNO, TSOPTB,.EXPREC 


226%: CKLOOP 


SEQ 145 


. WORD 233 
. WORD SOOTR 
WORD EXPREC 
sLOOP IF SELECTED 
vent TRAP Csc.Pi1 


NUMBER OF SKIPS 
iSET TO CORRECT FILE VALUE 
sSWAP BYTE HALVES 

1SET FOR RECORD #1 

GET INFO —- 


) 
i CK FOR MORE THAN 25 
sRECORD POSITION WAS ne Comeet 
-WORD 2352 
. WORD 


-WORD EXPREC 
TRAP Csc.P1 


sLOOP IF SELECTED 


t 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


8 
PESERORESSOESAHSHESAHHSASEDSHALEHHHOACHEAHEDHALHEHHED BESHESBEDE 


JSR oe 
BCS 230 

MOV RO,R4 

MOV TSSRCRS) RI 


JSR 
ERRHRD ERRNO, TSORWN,PKTSSR 


230%: CKLOOP 


sCALL TAPE oy A COMMAND 
s6R, NO PROBLEM 

sSAVE PACKET ADORESS 

3sGET TSSR STATUS 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 233 
«WORD T 


sLOOP IF SELECTED 


8 OOOO SO O688608 066866880686 86686688680660086000666060606666868606866 


1GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


J 
8 OSS SSOOSSSSOOOSs SOSSSSEOSHSSSHESEESHSSHSESEOSESEEEOEESHEOEEE 


MOV TSOBFR+6,R1 
MOV R1,R2 

BIS #BIT1,R2 
cup R1,R2 

BEQ 2408 

JSR PC .FATCHK 


ERRHRD ERRNO, TSOBOT ,EXPREC 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
REC'D 


ANO 
sTAPE NOT AT BOT AFTER mewIND 
TRAP 


-WORD 234 
-WORD TS3OBOT 
. WORD 


5371 ett] 


5381 cease 
53862 035316 
035316 
035316 


FES 2 sRip Flee AARC * 


177777 
036544 


036544 
034552 


Die 
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2408: 


3308: 


CKLOOP 


“4 
w 
~ 


33253833 


CKLOOP 


(R3)> 
CR3),R1L 
R1, 0177777 
330% 
TSOFCN,R1 


Ri 
R1, TSOFCN 
162% 


SEQ 146 


sLOOP IF SELECTED 
TRAP 


sPOINT TO NEXT POSITION 
sGET NEXT COMMAND le 


CscLPi 


OUN 
MORE COMMANDS TO 00 
sLOOP IF SELECTED 
TRAP CscCLP1 


g<eecececcacce END SUBTEST »>>>>>>>>>>> 
L10045: 
TRAP CsESUB 


festa: 


S402 


5405 
5406 
5407 


035332 


004737 
103407 
004737 
010001 


sie NoPE 


002116 
177772 
177756 
036546 
020106 


036360 


010332 
020106 


Ele 
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t¢ 


iTEST 2, SUBTEST 3 


: 

sVERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 

s ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 
sFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 
sFUNCTION (NEF) ERROR BIT SET. 


108: 


208: 
MeV 


3 
s ISSUE WRITE CHARACTERISTICS COMMAND 


RO, 
ERRNO, SF IERR , SF IMSG 


@TSOPACKET ,R4 


SEQ 147 


3>>>>>>>>>>>> BEGIN SUBTEST >»>»>>>>>>>>>> 
T2.3: 


TRAP 
sSET COMMAND PACKET 
sCLEAR FILE COUNTER 
sSET UP OTHER COMMAND PACKET 


3SE 

:00 INITIALIZE ON CONTROLLER 
sB8R IF INIT WAS OK 

sDELAY ROUTINE CALL 


:BUMP uy 
MORE COUNTING TO DO 


;CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
- WORD 


CK FOR MORE THAN 25 


Cs6SU8 


eatin 
 eienatends 
-6(PC) 
.-4 
-22(PC) 

20 


sSUBROUTINE NEEDS PACKET ADORESS 


FSOSSESESASESESSSOSSHASESESSEASSHEOASHHEEASSEEAEEREEEEEEEESEE 


a 
$99O086060664666660606046666666666606666606000606000666460060606086 


PC, ,WRTICHR 
23% 

PC ,.FATCHK 
RO,R 


sISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND ISSUED OK 


sINC AND CHECK FOR MORE THAN 25 ERRORS 


sSAVE CONTENTS OF TSSR 


i arte 


5433 


035452 
S2 


035514 


035516 


035572 


013701 
010102 


104406 
012737 


012737 
012704 
010465 


skip’ TheE “Ranks °* 


141410 
036510 
177776 


Fie 
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036512 


036510 


ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 


TRAP 
. WORD 
. WORD 
~WORD 
23%: CKLOOP sLOOP IF SELECTED 
TRAP 
J OOAOAAESEEEEEEEEEDESEEEEEES CEOEEEEERESOREDEOEEESEEESEOEEE 
3 
sISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
jPeeeseccccccccccccccccccccscocscocccoocoooooosoooosossces 
— sCALL TAPE REWIND COMMAND 


RO,R4 ACKET ADDRESS 
MOV TSSRCRS).R1 sGET STATUS REGISTER 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, TSORWN,PKTSSR ; REWIND NOT ACCEPTED 


TRAP 
. WORD 
. WORD 
- WORD 
308: CKLOOP sLOOP IF SELECTED 
TRAP 
$OOOOEOOEEEEEEEEEEEEEEEEEDEEAEEEEEEEEOEDEEEESEDEEEEDEEEDE 
é 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
| oececsccccccsccsssccccooeccocssocoscocccescooscoosccsccs 
MOV Sr ate R1 sPICK UP XSTO 
MOV Ri sSET UP EXPECTED 
BIS eit. Re sSET BOT BIT IN EXPECTED 
CMP R1,R2 sDOES EXP = REC'D 
BEQ 40$ sBR, IF EQUAL (OK) 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, TSOBOT,EXPREC sTAPE NOT AT BOT AFTER —- 
. WORD 
. WORD 
. WORD 
40$: CKLOOP sLOOP IF SELECTED ones 
MOV #1, T30W8 sSET @ OF TM TO SKIP 


SOPOOOOOREEEOEESESESEEEEEEEEEEEEEEESEEEEEEEDEEEDEEEEDEEDES 
3 

3SKIP TAPE MARK REVERSE ,ACK,CVC*=1 COMMAND 

é 

§ POROOROREEEEESEEEEEEEEESEEEEEEEEEEEEEREEEDEEEEDEDEEEDOOEE 


MOV #141410, TSOPKS sSKIP TAPE MARK REVERSE ,ACK,CvC= 
MOV @TS0PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSOBCRS) s ISSUE COMMAND 


SEQ 148 
CSERHRD 
236 


WRTMSG 
SF IMSG 


CsCLP1 


CsCLP1 


1 CMD 


Tee skip” hee Rahnee 


5510 


035576 
o3 


013701 
010102 
02 


017124 
000000 
100206 


020106 


Gle 
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MOV SSRCRS),R1 
MOV @SSR!ISCIBIT1IIBIT2,R2 
bea oat ~ 


pe ‘FAT ATCHK 
ERRHRO ERRNO, TSOIBT ,PKTSSR 


708: CKLOOP 


SEQ 149 


sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
EXPECT 


sSET UP ED 
sARE THEY EQUAL 
s6R, IF 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRO 
-WORD 239 
-WORD T3O0IB8T 
-WORD PKTSSR 
3;LOOP IF SELECTED 
TRAP CSCLP1 


F CHSSSOOSAEASHESEESHASEASESEEEEEDHEHEDEEEEEEEEEEEEEEEDEEEEE 


3GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


‘ 
3 9S00060660666066666466064060660600666606006600660600466466806066 


MOV or “pata R1 
MOV R1 
BIS wirio, R2 
CMP R1,R2 
BEQ 180% 

PC .FATCHK 


JSR 
ERRHRD ERRNO, T3ONEF ,EXPREC 


180%: CKLOOP 


ENOSUB 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET NEF BIT IN EXPECTED 
sDOES EXP = REC’ 

sB8R, IF EQUAL (OK) 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
; TAPE NOT AT NEF 
TRAP CsER DH 
«WORD 24¢ 
-WORD  EXPREC 
sLOOP IF SELECTED 
TRAP CscLP1 


3<<<¢eeceee< END SUBTEST >»>>>>>>>>>> 
L10046: 
TRAP CsESus 


TET oT sete” hee RaneeS ° 


000000 
035736 013727 002116 
000000 
035744 005367 177772 
035752 005367 177756 
5537 035760 005337 036546 
S539 035766 004737 020106 


5547 036004 012704 036360 


S555 036010 004737 010332 
5556 036014 103407 
5557 036016 004737 020106 


Hie 
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036546 


3¢ 


i 
sTEST 2, SUBTEST 4 
; 


3 
sVERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
sISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE La. 


sFIRST RECORD ON ON 


TAPE (BUT NOT AT BOT) CAUSES T 


sSTATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 


sC(RIB) STATUS BIT SET. 


108; JSR PC, SOF INIT 
20% 


DEC TSOOLY 


BNE 10$ 

JSR PC .FATCHK 

MOV RO,R1 

ERRDF ERRNO,SFIERR,SFIMSG 
208: 

MOV @TSOPACKET ,R4 


; 
s ISSUE WRITE CHARACTERISTICS COMMAND 


SEQ 150 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T2.4: 


TRAP 
sSET COMMAND PACKET 
sCLEAR FILE COUNTER 
sSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP DELAY COUNTER 
s00 INITIALIZE ON CONTROLLER 
;6R IF INIT WAS OK 
sDELAY ROUTINE CALL 


sBUMP COUNTER 

3BR, IF MORE COUNTING TO DO 

sINC AND CHECK FOR MORE THAN 

:CONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
- WORD 
- WORD 


CsBSUB 


@250,(PC)+ 
tsoLy.cPC)- 
6¢PC) 
"22¢PC) 


sSUBROUTINE NEEDS PACKET ADDRESS 


5 94646666666606068666686604660666666046046460606046060466000000006 


é 
5 99606666400606660666466666666664 4 06006086666400460604600600648 


JSR asi "Veit 
BCS 
JSR bc. * FATCHK 


s ISSUE WRITE CHARACTERISTICS 
3B8R, IF COMMAND ISSUED OK 


sINC AND CHECK FOR MORE THAN 25 ERRORS 


ZTKHA TK-25 FRT END FUNC 04 
EST 2: SKIP TAPE MARKS 


5561 036022 010001 
5562 0 


013701 
010102 


06 
013737 
012737 


003076 
000400 


5608 036140 012737 140005 


Iie 
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MOV 
ERRHRD 


RO,R1 
ERRNO, WRTMSG , SF IMSG 


23%: CKLOOP 


sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC = 


sLOOP IF SELECTED 


FSASAAHHAASHASSASESAASALEAASAEERESALESESEEASEEAESSEOERELEOEED 


; 
sISSUE A REWIND TO TAPE ORIVE AND WAIT FOR SSR TO SET 


a 
FPA HAEHAEAEHSEAERAREAKEEREAHARHAAAARHERAEMEEHEREAKESAHHAABRERH 


JSR PC ,REWIND 
BcS 308% 

MOV RO,R4 

MOV TSSRCRS),R1 
JSR PC .FATCHK 


ERRHRD ERRNO, TSORWN,PKTSSR 


308: CKLOOP 


sCALL_ TAPE REWIND COMMAND 
IF NO PROBLEM 
sGET PACKET ADDRESS 
sGET STATUS REGISTER 
sINC AND CHECK FOR MORE THAN 25 
sREWIND NOT ACCEPTED — 


sLOOP IF SELECTED 


8 SESASHSSESALASESSSSEASHASESESHHHHASEHEHEESASEAEEEEAEEE DEDEDE 


3 
sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


G 
PPRAARHERAREMRAARARSALEEMERADOTRHALAGDERARHAAHERSLMHARARS OHO 


MOV T3OBFR+6,R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS #6IT1,R2 sSET BOT BIT IN EXPECTED 
CMP R1,R2 sD0ES EXP = REC'D 
BEQ 40% sBR, IF EQUAL (OK 
JSR PC .FATCHK sINC ANDO CHECK FOR MORE THAN 25 
ERRHRD ERRNO, TSOB0T,EXPREC 3 TAPE NOT AT BOT AFTER — 
| . WORD 
. WORD 
. WORD 
40%: CKLOOP sLOOP IF SELECTED wae 
036512 MOV FREE, TS3OWB sSET UP GOOD WRITE BUFFER 
036516 MOV #256. ,130SZ sSET UP SIZE 
$OBOOOOEEOOO60O4660600606666000006060060006046600000000000008 
3 
sWRITE DATA,ACK,CVC=1 COMMAND 
Ron ononnesencnssconossonenssoannensnonansonenseesnnnesess 
036510 MOV #140005, TSOPKZ sWRITE DATA,ACK,CVC=1 COMMAND 


SEQ 151 


CsCLP1 


CsCLP1 


Jle2 


ZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 95-2 
$2 EST 2: SKIP TAPE MARKS SEQ 152 

5609 036146 012704 036510 MOV @T3OPK3,R4 3SET UP R4 WITH PACKET ADDRESS 

5610 036152 010465 177776 MOV R4, TSDBCRS) s ISSUE COMMAND 

5611 036156 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5612 036162 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

5613 036166 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

5614 036172 020102 CMP R1,R2 sARE THEY EQUAL 

5615 036174 001406 BEQ 70$ 3s6R, IF OK 

5616 036176 004737 020106 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 

5620 sSOFT ERROR, DON’T CARE ABOUT WRITE 

5621 sCOMMAND’S RESULTS - CHECKING SKIP 

5622 sTAPE MARK COMMAND 

Se 23 036202 ERRSOFT ERRNO, T30WDD,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
036202 104457 TRAP CSERSOFT 
036204 000365 . 24 
036206 037060 -WORD T30OWDD 
036210 011700 WORD PKTSSR 

5624 036212 708: CKLOOP sLOOP IF SELECTED 
036212 104406 TRAP CSCLP1 

5626 J SSHASAHASAAAASSESSASASASSAASSESASASAAEAAAAESEEARAARALALEEOEAEE 

5627 3 

5628 ;SKIP TAPE MARK REVERSE,ACK,.CVC=1 COMMAND 

5629 3 

peas FPSASASSASSSSASASSSEAAAASALAASDOEEASEEOEAESEEAAEEEEEEEDADELEE 

31 . 

5632 036214 012737 000001 036512 MOV #1, T30WB 3@ OF T TO SKIP 

5633 036222 012737 141410 036510 MOV #141410, TSOPK3 sSKIP TAPE MARK REVERSE,ACK, > i CMD 

5634 036230 012704 036510 MOV @T3OPK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 

S635 036234 010465 177776 MOV R4,TSOBCRS) s ISSUE COMMAND 

5636 036240 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5637 036244 016501 000000 MOV TSSRCRS),R1 3sPICK UP TSSR 

5638 036250 012702 100204 MOV @SSR!BIT2!:SC,R2 sSET UP EXPECTED (SSR AND SC ONLY) 

5639 036254 020102 CMP R1,R2 sWAS STATUS GOOD 

5640 036256 001406 BEQ +e Bl 3BR, IF TERMINATION WAS GOOD 

5641 036260 004737 020106 JSR PC .FATCHK 3 INC AND CHECK FOR MORE THAN 25 enone 

5645 036264 ERRHRD ERRNO, T3OIBU,.PKTSSR iTSSR NOT CORRECT AFTER WRT TAPE M 
036264 104456 TRAP CSERHRD 
036266 000366 -WORD 246 
036270 036550 WORD T30IBU 
036272 011700 -WORD PKTSSR 

5646 036274 1608: CKLOOP sLOOP IF SELECTED 

— 036274 104406 TRAP CSCLP1 

ros 3 240260464640664064046444664464444644646446644600406440404040440466446446 

3 
pene 3GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 
F 

oot §99O004666646446464646664444646604460000660064646602464460444644600646 

5654 036276 013701 036414 MOV T30BFR+14,R1 sPICK UP XST3 

5655 036302 010102 MOV R1,R2 3SET UP EXPECTED 

5656 036304 052702 000001 BIS #BITO,R2 sSET RIB BIT IN EXPECTED 

5657 036310 020102 CMP R1,R2 sDO0ES EXP = REC'D 

5658 036312 001406 BEQ 170$ ;BR, IF EQUAL (OK) 

5659 036314 004737. 020106 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5663 036320 . ERRHRD ERRNO, T3ORIB,EXPREC i TAPE NOT AT RIB 


036320 104456 TRAP CSERWRD 


CZTKHA TK-25 FRT END FUNC 04 
TEST 2: SKIP TAPE MARKS 


036322 000367 
036 


017362 
032362 


Kile 
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170$: CKLOOP 
ENDSUB 
;SUBTEST END 


JSR PC, TSTLOOP 
400$ 


BCC 
JMP T30LO0P 
400$: EXIT TST 


SEQ 153 


-WORD 247 
«WORD T30RIB 
«WORD EXPREC 


3LOOP IF SELECTED 
TRAP CSCLP1 
3<<eeeeceecee END SUBTEST >>>>>>>>>>> 
10047: 
TRAP CsESUB 


:00 WE NEED TO ITERATE TEST 
REQUIRED 


IN 
sALL DONE THIS TEST 
TRAP CSExIT 
-WORD 110043-. 


Lie 


TK-25 F 04 ACRO M - APR - : 
Gerynat e+e BIpENRabeYC MACRO M1200 20-APR-84 08:13 PAGE 96 SEQ 154 
5674 3° 
ahh ;LOCAL STORAGE FOR THIS TEST 
g* 
5678 036352 .BLKB 10-<.-TUV2AE7> 
5680 036360 TSOPACKET: sCOMMAND PACKET FOR TEST 
5681 036360 .WORD 100004 WRITE CHARACTERISTICS COMMAND, WITH , ACK 
5682 036362 036370 .WORD T3ODATA sADDRESS OF CHARACTERISTICS BLOCK 
5683 036364 «WORD 0 
5684 036366 000012 .WORD 10. sSTARTING VALUE OF BLOCK SIZE 
5685 036370 T3ODATA: sCHARACTERISTICS DATA BLOCK 
5686 036370 036400 .WORD T3O8FR sADORESS OF MESSAGE BUFFER 
5687 036372 000000 .WORD 0 
5688 036374 000024 .WORD 20. sLENGTH OF MESSAGE BUFFER 
5689 036376 000000 T30ETM: .WORD 0 3;SKIP TAPE MARK CONTROL 
3650 036400 TSOBFR: .BLKW 25. sMESSAGE BUFFER 
8 
a s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
8 
5695 036462 .BLKB 10-<.-TUV2AE7> 
5697 036470 T30PK2: 
5698 036470 100006 .WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
5699 036472 036520 .WORD T30BF2 sADDRESS OF SELECT BLOCK DATA 
5700 036474 000000 .WORD 0 
5701 036476 000006 «WORD 6. 3;SIZE OF DATA PACKET 
57063 036500 .BLKB 10-<.-TUV2AE7> 
5705 036510 T30PK3: 
5706 036510 100205 WORD 100205 REREAD COMMAND, IE AND ACK 
5707 036512 T3ORB: 
5708 036512 003076 T30WB: .WORD FREE sADDRESS OF WRITE BUFFER 
5709 036514 000000 -WORD 0O 
5710 036516 000000 T30SZ: .WORD 0 s;SIZE OF BUFFER (EXTENT) 
S711 .EVEN 
5712 036520 T308F 2: 
5713 036520 010 T308SO: .BYTE 10 ;BSELO AREA 
5714 036521 200 T308S1: .BYTE 200 3;B8SEL1 AREA 
5715 036522 000000 T30S2: .WORD 0 ;SEL 2 AREA 
3716 036524 000000 T30S3: .WORD 0O ;DATA AREA 
3 
5718 : 
5719 .EVEN 
ares 3;TAPE MOTION PACKET COMMAND VALUES 
5722 036526 T3OIMV: 
5723 036526 T3ORN: 
5724 036526 000000 .WORD 000000 ;NEITHER EWB NOR ESS 
5725 036530 000100 .WORD 000100 sEWB SET 
5726 036532 000200 .WORD 000200 3ESS SET 
5727 036534 000300 .WORD 000300 380TH EWB AND ESS SET 
5728 036536 177777 WORD 177777 sEND OF DATA 
5729 036540 000000 T3OCNT: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
5730 036542 000000 T3OCNU: .WORD 0 s;TAPE TIMER COUNTER STORAGE AREA 
5731 036544 000000 T30FCN: .WORD 0 3FILE NUMBER COUNTER 
5732 036546 000000 T3ODLY: .WORD 0 3DELAY COUNTER STORAGE 


CZTKHA TK-25 FRT END FUNC 04 


TEST 2: 


SKIP 


012701 


005742 


TAPE MARKS 


177777 036400 64%: 


Mie 


MACRO M1200 20-APR-84 08:13 PAGE 97 


3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
g° 


SEQ 155 


*TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT’ 
‘RIB Bit CXST3) Failed To Set After Reverse Into BOT’ 


TAPE MARK REVERSE At BOT’ 


‘Tape Not Positioned On Correct Record After READ REVERSE’ 
Not Positioned On Second File First Record’ 


‘TSSR Incorrect After SPACE Command Into TAPE MARK’ 
1 Mode Bits, Failed To Set a. Bit In xSTO’ 


epted’ 


epted’ 


Buffer’ 
CRETRY) Command’ 


‘Data Compare Error, Data Read From Tape Not Equal To Written’ 


T30IBU: .ASCIZ 

T3ORIB: .ASCIZ 

T3O0IBT: .ASCIZ ‘TSSR Incorrect After SKIP 

T3OSKM;: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK Command’ 

T -ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 
T3OPTB: .ASCIZ 

T3OTPB: .ASCIZ ‘Tape 

T3ORDF: .ASCIZ ‘TSSR Incorrect After READ FORWARD Into "File”’ 
T3ORDG: .ASCIZ 

T3OWDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
T3OLOQ@: .ASCIZ ‘Ill 

T30SSR: .ASCIZ ‘WRITE MISCELLANEOUS Command Not Ac 

T3OWDE: .ASCIZ ‘TSSR Not Correct After SKIP TAPE MARKS. At BOT’ 
T3O0B0T: .ASCIZ ‘Tape Not At BOT After REWIND Command’ 

T30TM: .ASCIZ ‘TSSR Not Correct After SPACE FORWARD Command’ 
T3OTM2: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE Command’ 
T3ORWN: .ASCIZ ‘Rewind CPOSITION) Command Not Acc 

T3OOFL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’ 
T3OWDOC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK Command’ 
T3OVCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In 

T3OTMK: .ASCIZ ‘TMK Not Set After WRITE TAPE MARK 

T3ONEF: .ASCIZ ‘SKIP TAPE MARKS, At BOT, Failed To Set NEF Bit’ 
T3ORRM: .ASCIZ ‘TMK Not Set After READ REVERSE Into TAPE MARK’ 
T3ORRN: .ASCIZ ‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
T3ORRP: .ASCIZ ‘TMK Not Set After READ FORWARD Into TAPE MARK’ 
T3ODTR: .ASCIZ ‘NO Date Transferred On READ FORWARD’ 

T3ODTA: .ASCIZ 

TST3OID: — -ASCIZ ‘Skip Tape Marks’ 


3* 


6 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


;WRITE SUBSYSTEM MEMORY C 
° 
g° 


T3OREST: 
SAVREG 
MOV @T3SOPACKET,R1 
MOV #100004 ,(R1)+ 
MOV @TSODATA,C(R1)+ 
CLR CR1)-+ 
MOV #10. ,CR1I)« 
MOV @T3OBFR,CR1)+ 
CLR R1)-+ 
MOV #20. ,CR1)+ 
CLR CR1)>+ 
MOV #0,(R1) 
MOV #24. ,R2 
MOV 0177777, T3OBFR(R2) 
TST -(R2) 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

+SIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 

sNEXT LOCATION 


Nie 
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Tee ot skete” Thee aris” ae “23 nite : reer 
5791 041224 022702 000000 * CMP #0, ,R2 sCHECK R2 FOR DONE 
5792 041230 001371 BNE 64% sKEEP GOING UNTIL DONE 
5793 041232 000207 RTS PC sRETURN 
$794 
$795 
5796 041234 T3ORT2: 

5797 041234 SAVREG sSAVE THE REGISTERS 
5798 041240 012701 036470 MOV @T3OPK2 ,R1 sSTART OF THE PACKET 
5799 041244 012721 100006 MOV #100006, (R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
5800 041250 012721 036520 MOV @TSOBF2,(CR1)+ sADDRESS OF DATA BLOCK 
5801 041254 005021 : CLR CR1)+ sEXTENDED ADORESS 
5802 041256 012721 000006 MOV 06. ,C(R1)+ sSIZE OF DATA BLOCK IN BYTES 
5803 041262 005021 CLR CR1)+ 
5804 041264 012701 036520 MOV @T30BF2,R1 sPOINT TO DATA SEL AREA 
5805 041270 005021 CLR C(R1)+ 
5806 041272 005011 CLR C(R1) 
5807 041274 000207 , RTS PC sRETURN 
5808 041276 T3ORTS: 
5809 041276 SAVREG sSAVE REGISTERS 
5810 0413502 012701 036510 MOV @T3OPK3,R1 sSET UP POINTER ADDRESS 
5811 041306 005021 CLR CR1)+ sCOMMAND SPACE 
5812 041310 005021 CLR CR1)+ sADDRESS OF DATA BLOCK 
5813 041312 005021 CLR CR1)+ sEXTENDED ADDRESS 
5814 041314 005011 CLR (R1) sSIZE OF DATA TRANSFER BLOCK 
3815 041316 000207 RTS PC sRETURN 
5816 041320 ENDTST 
041320 L10043; 


041320 104401 TRAP CsETST 


B13 


$b tae K-25 St ND FUNC 04 M1200 20-APR-84 06:13 PAGE 96 SEQ 157 
ST 3: NO-OP (“CLEAN TAPE”) AND INITIALIZE 
ste -SBTTL TEST 5: NO-OP (“CLEAN TAPE“) AND INITIALIZE 
. 
5820 
5821 THIS TEST VERIFIES PROPER OPERATION OF bay NO-OP ("CLEAN TAPE”) AND INITIALIZE 
sect sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA) 
’ 
5824 
soos ' Me TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 
’ 
$827 ’ 
5828 ’ 
5829 s- 
58630 041322 BGNTST 
041322 T3:3 
$8631 041322 005037 002172 CLR FATFLG sCLEAR FATAL ERROR FLAG 
S832 041326 37 003104 CLR «TF HOLD OFF KT11 
$833 041332 012737 002150 MOV @EPRT1 .EPRTSW sPRIMARY ERROR MESSAGE 
5638 041340 012700 046415 MOV @TST3i1IO,RO sASCII MESSAGE TO IDENTIFY TEST 
5639 041344 004737 017414 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
5840 041350 012737 000002 002166 MOV @2,LOOPCNT sPERFORM 2 ITERATIONS 
soe 041356 005037 043206 CLR TSICNT iCLEAR TAPE RECORD COUNTER 
$643 - 
5844 


5845 041362 TS1L00P; 


C13 


K 
TEEPE Ob TT ELPA Mink?) anB“ERP TAC R%e 2O-APR-84 08:15 PAGE 99 ee 
5647 s* 
5648 ; 
gos? sTEST S, SUBTEST 1 
3 
$8651 ‘ VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
’ COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
5653s ‘ STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 
5 T MOVE TAPE. THE TAPE IS FIRST REWOUND 
sess ’ WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
5856 ’ -OP COMMAND IS ISSUED. IT IS VERIFIED THAT = TAPE 
5857 s IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
i RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 
5859 ’ VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 
ooee 3 ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 
a 
$862 s 
5863 ’ 
5804 3 
5865 3 
S006 ’ 
5867 a 
$868 041362 BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
041362 TS.1: 
041362 104402 TRAP Cs6sus 
5869 041364 004737 046460 JSR PC, TSIREST sSET COMMAND PACKET 
5870 041370 004737 046552 JSR PC. TSIRT2 sSET UP OTHER COMMAND PACKET 
5871 041374 004737 046614 JSR PC, TSIRTS sSET UWP OT COMMAND PACKET 
5872 041400 012737 176750 043212 MOV #65000. , TS10LY sSET UP DELAY COUNTER 
5873 041406 004737 016650 108; JSR PC, :00 INITIALIZE x* CONTROLLER 
5874 041412 103426 ecs 20% s6R IF INIT WAS OK 
S875 041414 DELAY 250 sDELAY ABOUT .25 SEC 
041414 012727 000250 MOV @250,( PC )- 
041420 000000 . WORD 
041422 013727 002116 MOV LSOLY,(PC)- 
041426 000000 -WORD O 
041430 005367 177772 DEC -6(PC) 
041434 0013575 BNE .--4 
041436 005367 177756 DEC -22(PC) 
041442 001367 BME 2° 
5876 041444 005337 043212 DEC TS1OLY sBUMP COUNTER 
5877 041450 001356 BNE 10% sBR, IF COUNTER NOT DONE 
5878 041452 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
S862 041456 O1iww0l MOV RO,R1 sCONTENTS OF TSSR REGISTER 
5883 041460 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
041460 104455 TRAP CSEROF 
041462 000455 -WORD 301 
041464 003554 -WORD SFIERR 
041466 011666 -WORD SF IMSG 
5884 041470 208: 
S885 041470 012704 043030 MOV @TSIPACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 
5886 041474 004737 010332 JSR Te TCHR 1 ISSUE WRITE CHARACTERISTICS 
5887 041500 103407 Bcs s6R, IF COMMAND ISSUED OK 
5888 041502 004737 020106 JSR bc.  FATCHK sINC ANO CHECK FOR MORE THAN 25 ERRORS 
5892 041506 010001 MOV RO,R1 1 SAVE CONTENTS OF TSSR 
5893 041510 ERRHRD ERRNO, WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
041510 104456 TRAP CSERHRD 


041512 000456 «WORD 302 


CZTKHA TK-25 FRT By Aa Ry 


TEST 3: NO-OP (“CLE 


MACRO M1200 
TAPE”) AND INITIALIZE 


238: 
010434 


020106 


308: 


020106 


40%: 


043162 
043160 65%: 


043166 


010434 


020106 
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CKLOOP 

JSR PC REWIND 

ecs 308 

MOV RO,R4 

JSR PC .FATCHK 
ERRHRD ERRNO, TSIRWN,PKTSSR 
CKLOOP 

MOV TS1BFR+6,R1 
MOV R1,R2 

BIS eBiT1,R2 

CMP R1,R2 

BEQ 408 

JSR PC .FATCHK 
ERRHRD ERRNO, 131807 ,EXPREC 
CKLOOP 

MOV FREE, 13108 

MOV #140005, T31PKS 
MOV @T31PK3,R4 

MOV #100. ,RO 

JSR PC .FILLMEM 

MOV #100. , 131SZ 
MOV » TSOBC 

JSR PC ,WALTF 

MOV TSSRCRS),R1 
MOV @SSR ,R2 

CMP R1,R2 

BEQ 60% 

JSR PC ,.FATCHK 
ERRSOFT ERRNO, T31WOC ,PKTSSR 
CKLOOP 

JSR PC ,REWIND 

Bcs 2308 

MOV RO,R1 


JSR Crk 
ERRHRD ERRNO, T31RWN,EXPREC 


SEQ 159 


«WORD WRTMSG 

«WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CsCLP1 


sCALL TAPE REWIND COMMAND 
36R, IF NO PROBLEM 

sSET UP REWIND PACKET ADORESS 
s INC CHECK FOR MORE 


ANO THAN 25 ERRORS 
; REWIND NOT ACCEPTED 


TRAP CSERHRD 
-WORD 303 
- WORD T31RUN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPi 
sPICK UP XxSTO 
3SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
s00ES EXP = REC'D 
38R, IF EQUAL 


(OK) 
CHECK FOR MORE THAN 25 ERRORS 


sINC AND 
sTAPE NOT AT BQT AFTER REWIND 
TRAP CSERHRD 
e 304 
-WORD 131807 
EXPREC 
sLOOP IF SELECTED 
CsCLPi1 


TRAP 
sSTARTING WRITE BUFFER ADORESS 
sWRITE DATA,CVC=1,ACK COMMAND 
sSET UP _R4 WITH PACKET ADORESS 
iSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 


3SET UP EXPECTED 
3 ARE Y EQUAL 
3s6R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3SOFT ERROR, DON'T CARE ABOUT WRITE 
sCOMMAND'S RESULTS - CHECKING 
3sNO-OP COMMAND 
sTSSR INCORRECT AFTER WRITE DATA 
TRAP CsSERSOF T 
-WORD 305 
-WORD T31WOC 
.WORD PKTSSR 
3LOOP IF SELECTED 
TRAP CsCLP1 


sCALL TAPE REWIND COMMAND 


sSAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 

TRAP CSERHRD 


Seren TK - 


-OP ¢ 


FRT 


004737 020106 


406 
004737 020106 


043160 


043160 
043166 


2308: 


2408: 
2658: 


2808: 


2853: 


E13 
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T31BFR+6,R1 
R1,R2 


o8iT1,R2 

R1,R2 

2403 

PC .FATCHK 

ERRNO, T31B80T ,EXPREC 


#041012, T31PK3 
@T31PK3,R4 


PC .FATCHK 
ERRNO, T31ROF ,PKTSSR 


T31BFR+6,R1 
R1,R2 


eBIT1,R2 

R1,R2 

265% 

PC .FATCHK 

ERRNO, T3160T ,EXPREC 


#140001, T31PK3 
@T31PK3,R4 
#100. ,131SZ 
R4, TSOB(RS) 

PC .WAITF 
TSSRC(RS),R1 
@SSR ,R2 

R1,Re2 

290% 


~WORD 
. WORD 
. WORD 
sLOOP IF SELECTED 
TRAP 
sPICK UP XSTO 
sSET UP EXPECT 


EO 
iSET BOT BIT IN _— 


sTAPE NOT AT BOT AFTER — 


sLOOP IF SELECTED 


TRAP 
sNO-OP,,CvC*1 COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP gs 


sINC AND CHECK FOR MORE THAN 25 
:TSSR INCORRECT AFTER READ DATA 

TRAP 

. WORD 

. WORD 

- WORD 
3;LOOP IF SELECTED 

TRAP 


sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT ei 3 ties 


sTAPE NOT AT BOT AFTER REWIND 
TRAP 
. WORD 
WORD 


sLOOP IF SELECTED 


TRAP 
sREAD, ACK ,CvC=1 COMMAND 
sSET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 


s+ ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 

sBR, IF OK 


SEQ 160 


306 
T31RWN 
EXPREC 


CscLP1 


ERRORS 
CSERHRD 


308 
T31R0F 
PKTSSR 


CscLP1 


ERRORS 
CSERHRD 


309 
T3180T 
EXPREC 


CscLPL 


F13 
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Fees abrop CEL EAN TPE") AND ERGTTAC Soe - we Wee 
5991 042146 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5995 042152 ERRHRD ERRNO, T3LRDE.PKTSSR sTSSR INCORRECT AFTER READ DATA 
042152 104456 TRAP CSERHRD 
042154 000466 - WORD 10 
042156 043214 ~ WORD T31R0E 
042160 011700 WORD PKTSSR 
5996 042162 2908: CKLOOP sLOOP IF SELECTED 
042162 104406 TRAP CSCLP1 
5997 042164 017701 140706 MOV OFREE ,R1 sGET DATA READ 
5998 042170 012702 000144 MOV #100. ,R2 sREAD EXPECTED 
5999 042174 020102 CMF R1,R2 s0ID0 TAPE STAY POSITIONED 
6000 042176 001406 BEQ 330% 36R, IF EXPD = RECD 
6001 042200 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6005 042204 ERRHRD ERRNO, T3iWNG,EXPREC 3 TAPE DATA NOT CORRECT 
042204 104456 TRAP CSERHRD 
042206 000467 -WORD 311 
042210 043341 . WORD T31WNG 
042212 016350 -WORD EXPREC 
6006 042214 3308: 
6007 042214 ENODSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
042214 L10051: 


042214 104403 TRAP CsESsuB 


rety™s 


G13 
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043030 
010332 


020106 


010434 


020106 


043056 


; 
sTEST 3, SUBTEST 2 


23%: 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICRODIAGNOSTIC E 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). 


RRORS ARE PRESENT (THEY WOULD 


SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 


PC, T31IREST 


23 


RO, 
ERRNO, SF IERR , SF IMSG 


@TSIPACKET ,R4 
PC, .WRICHR 


23% 

PC .FATCHK 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


PC ,REWIND 
30% 


RO,R4 
PC .FATCHK 
ERRNO, T31RWN,PKTSSR 


T31BFR+6,R1 
R1,R2 


eBIT1,R2 
R1,R2 
40$ 


THE TEST 


SEQ 162 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T 


sSET COMMAND P 


ACKET 
iSET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
s00 INITIALIZE ON CONTROLLER 


sB8R IF INIT WAS OK 


CsBSUB 


AND CHECK FOR MORE THAN 25 ERRORS 


s INC 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 


sSUBROUTINE NEEDS PACKET 
s ISSUE WRITE Ce Nh nar hay 


CSEROF 


312 
SFIERR 
SF IMSG 


ISSUED OK 
CK FOR MORE THAN 25 ERRORS 


sINC AND CHE 
sSAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC —" 


sLOOP IF SELECTED 


sCALL_TAPE REWIND COMMAND 
NO PROBLEM 


sBR, IF 


sSET UP REWIND PACKET ADORESS 
FOR MORE THAN 25 


sINC AND CHECK 
sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 


sPICK UP XSTO 
sSET UP EXPECT 


ED 
iSET BOT BIT IN _poecrs 


sDOES EXP = REC’ 
iBR, IF EQUAL (OK) 


CsCLP1 


Fees NB=oP C“ELEAN TAPE") AND 


6059 
606 


6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6081 
6082 
6083 
6084 


: 


042356 


3 042 


004737 


020106 


003076 
140005 
043160 
000144 
020400 
000144 
177776 
017124 
000000 


000200 


020106 


010434 


020106 


041012 
043160 


H13 
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JSR PC, FATCHK 
ERRHRD ERRNO, T31B80T ,EXPREC 
40$: CKLOOP 
043162 MOV FREE ,T31W8 
043160 65%: MOV #140005, T31PK3 
MOV @T31PK3, 
MOV #100., 
JSR PC ,.FILLMEM 
043166 MOV #100. ,731SZ 
MOV R4,TSOBCRS) 
JSR PC ,WAITF 
MOV TSSRC RS),R1 
MOV #SSR ,R2 
CMP RL sR 
BEQ 80% 
JSR PC ,.FATCHK 
ERRSOFT ERRNO, T31WOC .PKTSSR 
808: CKLOOP 
JSR PC REWIND 
Bcs 230% 
MOV RO,R1 
JSR PC ,FATCHK 
ERRHRD ERRNO, T31RWN,EXPREC 
2308: CKLOOP 
MOV T31BFR+6,R1 
MOV R1,R2 
BIS oBITl, Re 
CMP R1,R2 
BEQ 240% 
JSR PC,FATCHK 
ERRHRD ERRNO, T31B0T,EXPREC 
2408: CKLOOP 
043160 265%: MOV #041012, T31PK3 
MOV #T31PK3,R4 


SEQ 163 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHROD 
-WORD 315 
-WORD 13180T 
-WORD EXPREC 
CsCLP1 


sLOOP IF SELECTED 


TRAP 
sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC*1,ACK COMMAND 
sSET UP R4 WITH PACKET ss 

sSET PATTERN IN _— REGISTER 
sFILtL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
36R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3SOFT ERROR, DON’T CARE ABOUT WRITE 
sCOMMAND'S RESULTS - CHECKING 
3THE INITIALIZE COMMAND 
3TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERSOFT 


«WORD 316 
-WORD T31WOC 
WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sCALL_ TAPE REWIND COMMAND 

BR, IF NO PROBLEM 

sSAVE TSSR 

sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 


TRAP CSERHROD 
-WORD 317 
-WORD T31RWN 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sPICK UP XxSTO 
sSET UP EXPECTED 
sSET BOT BIT z. — 


:BR, 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
: TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 


. 318 

-WORD 13180T 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP Csc_Pi 


sINITIALIZE,CvC=1 COMMAND 
sSET UP R4& WITH PACKET ADDRESS 


GEESE ENA Wnd> an TRETAERGE 2°-APR-84 


6108 
6109 


042570 
042574 


010337 
010465 


043166 
177776 
017124 


020106 


140116 
000144 


020106 


043160 
043166 


2808: 


285$: 


2908: 


330%: 


ENOSUB 


I13 
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R3,731SZ 

R4, TSDBCRS) 

PC ,WAITF 

TSSRCRS),R1 
Re 


R1,R2 

2808 

PC .FATCHK 

ERRNO, TS1ROF ,PKTSSR 


T31B6FR+6,R1 
R1,R2 


oB1T1,R2 
oo 1,R2 


265% 
PC ,FATCHK 
ERRNO, T31B0T ,EXPREC 


#140001 , T31PK3 
@T31PK3,R4 
#100. ,131SZ 
R4, eal RS) 
PC ,WAITF 
TSSR(RS),RL 
@SSR ,R2 
R1 ’ 


290 
PC .FATCHK 
ERRNO, T31RDE ,PKTSSR 


@FREE .R1 


ERRNO, TS1WNH, EXPREC 


SEQ 164 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 


sARE THEY EQUAL 
36R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER aaa OATA 
CSERHRD 
TWORD 319 
~ WORD T31ROF 
PKTSSR 
3LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
3SET UP 


EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC‘D 


OK) 
AND CHECK FOR MORE THAN 25 ERRORS 


3s INC 
3TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
a 320 
-WORD 1T3180T 
EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


sREAD,ACK,CVC=1 COMMAND 

sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 


;6R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3TSSR INCORRECT AFTER —_ DATA 
TRAP CSERHRD 
-WORD 321 
“WORD T3iROE 
. WORD PKTSSR 
3:LOOP IF SELECTED 
TRAP CSCLP1 


sGET DATA READ 

sREAD EXPECTED 

s0ID TAPE STAY POSITIONED 

3BR, IF EXPD = RECD 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTAPE POSITION NOT CORRECT AFTER INIT 


TRAP CSERHRD 

-WORD 322 
«WORD T31WNH 
-WORD  EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


CZTKHA TK-25 FRT END FUNC 04 


MACRO 
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3004 
043004 


6164 043020 


104403 


017362 
041362 


SK 


M1200 
IALIZE 


163$: 
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JSR 
BCC 
JMP 
EXIT 


PC, TSTLOOP 
163% 
T31L00P 
TST 


J13 


L100Se: 
TRAP 


300 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP 
. WORD 


SEQ 165 


CsESUB 


CsExIT 
L10050-. 


$b tae TK - mS FR 
EST 3: 


NO -OP 


T 
¢ 


010 


102205 
177777 


K13 


20-APR-84 08:15 PAGE 101 


3¢ 
;LOCAL STORAGE FOR THIS TEST 


3 = 
BLK 
T31PACKET: 


28888 S388 


é 
s;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


T31DATA: 
T316FR: . 
8 

.BLKB 
T31PKe: 

. WORD 

WORD 

WORD 

. WORD 

.BLKB 
T31PK3: 

. WORD 
T31RB: 
T31WB: .WORD 

. WORD 
T31SZ: .WORD 

~EVEN 
3 
3 
3 
T316Fe: 


T3183: |WORD 
a 
3 


EVEN 
3TAPE MOTION PACKET COMMAND VALUES 


T31RN: .WORD 


10-<, -TUV2AE7> 


100004 
T31DATA 
0 

10. 
T318FR 
ie) 

20 . 

ie) 

25. 


10-< , -TUV2AE7> 


100006 
. 18F2 


6. 
10-<, -TUV2AE7> 


102205 
177777 


ooo 


sCOMMAND PACKET FOR TEST 


SEQ 166 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 


sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


s;WRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


;SIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


3;BSELO AREA 
3BSEL1 AREA 
3SEL 2 AREA 
sDATA AREA 


sREREAD DATA CNEXT) 
sREREAD DATA RETRY 
sWRITE CONTINOUS 
sEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
;TAPE TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 


AND ACK 


Lis 
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6231 ;LOCAL TEXT MESSAGES FOR TEST 

6232 8° 

6233 

os 

6236 043214 124 123 123 T3IRDE: .ASCIZ ‘TSSR Not Correct After READ Command’ 

6237 043260 124 141 160 T3iWNH: .ASCIZ ‘Tape Position Incorrect After INITIALIZE Command’ 

6238 043341 124 141 160 T3iWNG: .ASCIZ ‘Tepe Position Incorrect After NOP Command’ 

6239 043413 124 123 123 T3iIROF: .ASCIZ ‘TSSR Incorrect After ~~ DATA Command’ 

6240 043462 122 105 122 T3IRRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 


6241 043557 120 117 123 T31SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 

6242 043641 122 111 102 TSiILOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 

6243 043711 124 123 123 TSiWOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 

6244 043766 111 154 154 T31L0Q@: .ASCIZ ‘Illegal Mode Bite, Failed To Set ILC Bit In xXSTO’ 

6245S 044047 122 105 122 T31iSSR: .ASCIZ ‘REREAD COMMAND Not Accepted’ 

6246 044103 124 123 123 T3IWDE: .ASCIZ ‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Command,At BOT’ 
6247 044215 124 141 160 T31B0T: .ASCIZ ‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)’ 

6248 044310 116 117 OSS T3iTIM: .ASCIZ ‘NO-OP ("CLEAN TAPE”) AND INITIALIZE''S Erase Tape Not Long Enough’ 

6249 044410 122 105 122 T31IEOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 


6250 044467 124 123 123 T3iTM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Re ject’ 

6251 044544 122 145 167 T3iRWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 

6252 044613 122 101 115 T31RNC: .ASCIZ ‘RAM Error, Correct Date Pattern Not In Ram’ 

6253 044666 124 123 123 T31iAM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 

6254 044735 104 162 151 T310FL: .ASCIZ ‘Drive 7 Select Failed To Set "OFL” In TSSR’' 

6255 045010 124 123 123 T3iWOD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 

6256 045100 124 123 123 T3iWOC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 

6257 045153 103 126 103 T3iVCK: .ASCIZ ‘CVC Set. Didn''t Reset VCK In Buffer’ 

6258 045226 124 123 102 T31B8A: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 

6259 045301 127 122 111 T3iWSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

6260 045370 122 145 141 T31LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO' 

6261 045452 122 145 141 T31LOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In XSTO’ 

6262 045534 122 145 163 T31PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 

6263 045€22 122 145 141 TS31TRL: .ASCIZ ‘Reading L Record Failed To Give Tape Status Alert’ a 
. 6264 04571¢ 116 117 OSS TS3iINEF: .ASCIZ ‘NO-OP ("CLEAN TAPE”) AND INITIALIZE, At First Record, Failed To Set RIB Bit 

6265 046031 124 123 123 T31SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 

6266 046106 124 123 123 T31TSA: .ASCIZ ‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE, Into BOT’ 

6267 046213 124 123 123 T3iIWRF: .ASCIZ ‘TSSR Not Correct After NO-OP ("CLEAN TAPE”) AND INITIALIZE Command’ 

6268 046316 104 141 164 T31iD0TA: .ASCIZ ‘Date Compere Error, Data Read From Tape Not Equal To Written’ 

6269 046413 116 117 055 TST31I0: .ASCIZ ‘NO-OP ("Clean Tape") And INITIALIZE’ 

6270 .EVEN 

6271 3¢ 

6272 ; 

6273 ;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

dnd ;WRITE SUBSYSTEM MEMORY COMMAND 

3 

6276 :- 

6277 

6278 046460 T31REST: 

6279 046460 SAVREG :SAVE THE REGISTERS 

6280 046464 012701 043030 MOV @T31PACKET,R1 sSTART OF THE PACKET 

6281 046470 012721 100004 MOV #100004 ,(R1)+ ;sWRITE SUBSYSTEM MEM. WITH ACK, 

6282 046474 012721 043040 MOV @T31DATA, CR1)-+ sADDRESS OF CHARAISTICS DATA BLOCK 

6283 046500 005021 CLR CR1)> 3;EXTENDED ADDRESS 

6284 046502 012721 000012 MOV #10. ,C(R1)+ 3SIZE OF DATA BLOCK IN BYTES 


6285 046506 012721 043050 MOV OT31BFR,CR1)+ sADDRESS OF MESSAGE BUFFER 
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6286 046512 CLR CR1)« 
6287 046514 012721 000024 MOV #20. ,CR1)>+ sLENGTH OF MESSAGE BUFFER 
6288 046520 CLR + 
6289 046522 012711 000000 MOV #0,(R1) sSELECT ORIVE ZERO 
046 012702 000030 MOV $24. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
6291 046532 012762 177777 043050 64%: MOV 0177777, T31BFRCR2) sALL_ ONES TO MESSAGE BUFFER 
6292 046540 005742 TST -C(R2) sNEXT LOCATION 
6293 046542 022702 000000 CMP #0 ,R2 sAT END OF LOOP YET 
6294 046546 001371 BNE 64$ sKEEP GOING UNTIL DONE 
6295 046550 000207 RTS PC sRET 
6296 
6297 
6298 046552 T31RT2: 
6299 046552 SAVREG sSAVE THE REGISTERS 
6300 046556 012701 043140 MOV @T31PK2,R1 sSTART OF THE PACKET 
6301 046 012721 MOV #100006 ,(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
6302 046566 012721 043170 MOV @T318F2,(R1)+ sADDRESS OF DATA BLOCK 
6303 046572 005021 CLR CR1)+ sEXTENDED ADDRESS 
6304 046574 012721 000006 MOV #6.,CR1)+ sSIZE OF DATA BLOCK IN BYTES 
6305 046600 005021 CLR CR1)+ 
6306 046602 012701 043170 MOV @T318F2,R1 sPOINT TO DATA SEL AREA 
6307 046606 005021 CLR CR1)+ 
6308 046610 005011 CLR CR1) 
6309 046612 000207 RTS PC :RETURN 
6310 046614 T31RTS3: 
6311 046614 SAVREG :SAVE REGISTERS 
6312 046620 012701 043160 MOV @T31PK3,R1 sSET UP POINTER ADDRESS 
6313 046624 005021 CLR CR1)+ sCOMMAND SPACE 
6314 046626 005021 CLR C(R1)+ sADDRESS OF DATA BLOCK 
6315 046630 005021 CLR CR1)+ sEXTENDED ADDRESS 
6316 046632 005011 CLR CR1) :SIZE OF DATA TRANSFER BLOCK 
6317 046634 000207 RTS PC sRETURN 
6718 046636 ENDTST 
046636 L10050: 
046636 104401 TRAP CSsETST 
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Fest 4: ERASE AND OPERA I0N INCOMPLETE 
oss -SBTTL TEST 4: Erase And Operation Incomplete 
3* 
6323 3 
6324 : VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
6325 ; POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
6326 3 THE FOLLOWING TEST SEQUENCE IS PERFORMED: 
6327 Fy 
6328 : 
6329 3 1. THE TAPE IS FIRST REWOUND, SEVERAL TEST as ARE 
Hetty 3 WRITTEN, AND THE TAPE 1s REWOUND AGAIN 
3 
6332 3 2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
eoas : OF THE TEST RECORDS. 
3 
6335 3 3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
3 3 H (BOT SHOULD BE 0). 
3 
6338 : 4. A READ REVERSE COMMAND 7S ISSUED. IT IS VERIFIED THAT 
6339 Fy THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
6340 3 REVERSE INTO BOT CRIB) STATUS BIT IS SET, AND THAT NO 
6341 3 DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
6342 3 WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
6343 3 COMMAND. 
6344 ; 
6345 : 
6346 : 
6347 3 
6348 ; 
6349 : 
6350 Fy | 
os ;THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS a 
; 
6353 3 | 
6354 3 ¥ i 
6355 z- i 
6356 046640 BGNTST 
046640 T4:: i 
6357 046640 005037 002172 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
6358 046644 005037 003104 CLR KTFLG sHOLD OFF KTi1 
6359 046650 012737 005676 002150 MOV #EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
6364 046656 012700 052470 MOV #TST32ID,.RO sASCII MESSAGE TO IDENTIFY TEST 
6365 046662 004737 017414 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
6366 046666 012737 000001 002166 MOV #1,LOOPCNT sPERFORM 1 ITERATIONS 
at 046674 005037 051340 CLR T32CNT ;sCLEAR TAPE RECORD COUNTER 
6369 3+ 
6370 3 CHECK FOR 1ST PASS, IF 1ST PASS PRINT FAULT LIGHT MESSAGE 
yA 3 ELSE SKIP MESSAGE 
tid 
6373 046700 005737 002722 TST FLLTSW sCHECK FAULT SWITCH 
6374 046704 001012 BNE 5$ 3BR, IF NOT 1ST PASS 
6375 046706 005237 002722 INC FLLTSW 3IT IS 1ST PASS, SET SW FOR LATER 
6376 046712 PRINTX #FAULTM ;"THIS TEST MAY ILLUMINATE FAULT LIGHT” 
046712 012746 052527 MOV @FAULTM, -CSP) 
046716 012746 000001 MOV #1, -(SP) 
046722 010600 MOV sP."O 


046724 104415 TRAP CSPNTX 
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062706 000004 


002116 
177772 
177756 
051344 
020106 


051150 
010332 


020106 


M1200 20- 
58: 

| 

4 

sTEST 4, 
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SUBTEST 1 


{VERIFIES THAT A Erese And Operet 

sTHE TAPE IS POSITIONED AT BOT Causes FUNCTION REJECT 
Dace eat ye" WITH THE NON-EXECUTABLE FUNCTION (NEF) 
sERROR BIT SET. 


TS2L00P; 
’ 

i 

t- 


108: 


BGNSUB 

JSR PC, TS2REST 

JSR PC. T3S2aRT2 

JSR PC, TS2RTS 

MOV #65000. , TS20L 7 
JSR PC, SOF INIT 

ecs 208 

DELAY 250 

DEC TS20LY 

BNE 108 

JSR PC .FATCHK 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
MOV @TS2PACKET ,R4 
JSR PC ,WRICHR 

Bcs 25% 

JSR PC .FATCHK 


MOV RO,R1 
ERRHRD ERRNO, WRIMSG, SF IMSG 


on Incomplete COMMAND ISSUED WHILE 


SEQ 170 


g>>>>>>>>>>0>> ant > We SUBTEST >>>>>>>>>>>> 


4.1: 


100 INITIALIZE ON CONTROLLER 
s8R IF INIT WAS OK 
:DELAY ABOUT .25 SEC 


sBUMP COUNTER 
s8R, IF COUNTER NOT DONE 
sINC AND CHECK FOR MORE THAN 25 
CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT Ox 


sSUBROUTINE NEEDS PACKET 
sISSUE WRITE es Ty ae he 


0 Ox 
FOR MORE THAN 25 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP 
. WORD 


Cs6Sus 


> eats 
tients 
-6(PC) 

--4 

-220PC) 

- 720 


ERRORS 


CSERHRO 
402 
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047064 004760 «WORD WRTMSG 
047066 011666 WORD SF IMSG 

6423 047070 25%; CKLOOP sLOOP IF SELECTED 
047070 104406 TRAP CScLPi 
6424 047072 004737 0104354 JSR PC REWIND sCALL TAPE REWIND COMMAND 
6425 047076 103411 ecs 268 s6R, IF NO PROBLEM 
6426 047100 010004 MOV RO,R4 SET UP REWIND PACKET ADDRESS 
6427 047102 0165031 000000 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
6426 047106 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
$432 047112 ERRHRD ERRNO, TS2RWN,PKTSSR ; REWIND NOT ACCEPTED 
047112 104456 TRAP CSERHROD 
047114 000625 «WORD 403 
047116 051530 ° T32RWN 
047120 011700 «WORD PKTSSR 
6433 047122 26%: CKLOOP sLOOP IF SELECTED 
O471i22 1 TRAP CsCLPi 
6434 047124 012703 MOV 0256. RS sSTARTING RECORD SIZE 
6435 047130 0135737 003076 051302 MOV FREE , T32W8 STARTING WRITE BUFFER ADDRESS 
36 047136 012737 140005 051300 MOV #140005 , TS2PKS sWRITE DATA,CvC*1, COMMAND 
6437 047144 012704 0513500 MOV @TS2PKS ,R4 sSET UP R4 WITH PACKET ADORESS 
64386 047150 010337 051306 278: MOV R3,132SZ iSET UP RECORD SIZE IN PACKET 
6439 047154 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
047160 004737 017124 JSR ° sWAIT FOR SSR TO SET 
6441 047164 016501 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6442 047170 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6443 047174 020102 cmp R1,R2 sARE THEY EQUAL 
6444 047176 001406 BEQ 26% s6R, IF OK 
6445 047200 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6849 sSOFT ERROR, DON'T CARE ABOUT WRITE 
€450 sCOMMAND'S RESULTS - CHECKING THE 
6451 iERASE COMMAND 
6452 047204 ERRSOFT ERRNO, TS2WOC ,PKTSSR sTSSR INCORRECT AFTER we DATA 
047204 104457 TRAP CSERSOF T 
047 000624 -WORD 404 
047210 052366 .wrPh = TS2WOC 
047212 011700 -+ <0 PKTSSR 
6453 047214 288: CKLOOP sLOOP IF SELECTED 
047214 104406 TRAP CscLP1 
6434 047216 005723 TsT CR3)> sBUMP RECORD COUNTER 
6455 047220 020327 001002 CMP R3,0514. sAT MAX SIZE YET 
6456 047224 001351 BNE 27% sBR, IF NOT AT END OF LOOP 
6457 047226 004737 010434 JSR PC, gna a TAPE REWIND COMMAND 
6458 047232 103411 6cs IF NO EM 
6459 047234 016501 000000 MOV T3SACRS), AL 1GET TSSR CONTENTS 
6460 047240 010004 MOV ROR sSET UP REWIND PACKET ADORESS 
6461 047242 004737 020106 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6465 047246 ERRHROD ERRNO, TS2RWN,PKTSSR sREWIND NOT ACCEPTED 
047246 104456 TRAP CSERHRD 
047250 000625 ° 405 
047252 051530 -WORD T32RWN 
047254 011700 WORD PKTSSR 
6466 047256 30%; CKLOOP sLOOP IF SELECTED 
047256 104406 TRAP CsCLP1 
6467 047260 013701 051176 MOV TS2BFR+6,R1 sPICK UP XxSTO 
6468 047264 010102 MOV R1,R2 sSET UP EXPECTED 
6469 047266 052702 000002 BIS oBIT1,R2 sSET BOT BIT IN EXPECTED 


6470 047272 020102 CMP R1,R2 sD0ES EXP = REC'D 


D14 
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001406 
004737 


104456 
000626 


104406 
013701 


020106 


140411 
300 


051 

177776 
017124 
000000 
000200 


020106 


051204 


051300 


408: 


558: 


1808: 


408 
PC ,FATCHK 
ERRNO, TS2B0E ,EXPREC 


#140411, TS2PK3 
aby a R4 
R4. TSDBCRS) 
“WALTF 


TSSR(RS),R1 

@SSR ,R2 

R1,R2 

508 

PC .FATCHK 

ERRNO, TS2ERA,PKTSSR 


CHK 
ERRNO, TS2B0E ,EXPREC 


FREE, TS2R8 
#140401, _— 


PC. 

TSSR(RS),R1 
@SSRISC!BIT2,R2 
1808 

PC ,FATCHK 

ERRNO, TS2TSA,PKTSSR 


T3S2BFR+14,R1 


SEQ 172 


1OR, IF EQUAL (OK) 
sING AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE AT GOT AFTER ERASE 


TRAP CSERHRD 
«WORD 406 
-WORD TS32B0E 
-WORD EXPREC 
sLO0P IF SELECTED 
TRAP csci' 1 
sERASE TAPE,CvC*1,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
}WAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
36R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3TSSR INCORRECT AFTER ERASE DATA 
TRAP = 
- WORD TS2ERA 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPL 
sPICK UP XSTO 
sSET UP EXPECTED 
iSET BOT ert IN EXPECTED 
s00ES EXP = REC'D 


s8R, IF EQUAL (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3; TAPE NOT AT BOT AFTER —— 


CSERHRO 
-WORD 408 
-WORD T32B0E 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP Csc.P1 


sADORESS OF BUFFER 

sREAD REVERSE ,ACK,CVC=1 COMMAND 
sSET UP THE SIZE OF RECORD 

sSET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 


sSET UP EXPECTED TAPE STATUS ALERT 
“ Lo EQUAL 
3 ° 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
- WORD 409 
. WORD T32TSA 
. WORD PKTSSR 
3LOOP IF SELECTED 
TRAP CsCLP1 


sGET XST3 STATUS WORD 
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1908: 


MOV 
BIS 
CMP 
—_ 
ERRHRD 


ENODSUB 


R1,R2 
@BITO,R2 
Fy 


bee Fat CHK 
ERRNO, TS2RIB ,EXPREC 


SEQ 173 


sSET UP EXPECTED 
sSET THE RIB BIT 
sARE THEY EQUAL 
sBR, IF EQUAL (GOOD) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sRIB SHOULD BE SET 
TRAP CSERHRD 


«WORD 410 


3>>>>>>>>>>>> END SUBTEST »>»>>>>>>> >>> 
L10054: 
TRAP CsESus 


‘é 


TKHA TK - 


ST 4: 


051150 
010332 
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j 
sTEST 4, SUBTEST 2 


VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 


208; 


1. 


PC, T32REST ACKET 

PC, T3QRT2 sSET UP OTHER COMMAND PACKET 
PC, T3eRTS sSET UP OTHER COMMAND PACKET 
= eet 


20 

PC .FATCHK sINC ANDO CHECK 
RO,R1 

ERRNO, SF IERR, SF IMSG 


@TS2PACKET ,R4 
PC, ,WRICHR + ye ® WRITE CHARACTERISTICS 
ISSUED OK 


THE TAPE IS FIRST REWOUND, SEVERAL bg RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN 


A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
Hine Big OF BOT AND SKIP OVER THE FIRST SEVERAL 


AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 


NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 


A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
ISHED AND THAT THE DATA 
C SPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED GY THE ERASE COMMAND, AND THAT THE 
PREVIOUS RECORD WAS NOT CORRUPTED. 


SEQ 174 


3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
T 
TRAP Cs6SUB 


sSET COMMAND P. 
3:00 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 


sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 


FOR MORE THAN 25 ERRORS 


TRAP CSEROF 


-WORD 411 


-WORD SFIERR 
-WORD SFIMSG 


sSUBROUTINE NEEDS PACKET 
38R, IF COMMAND I 


i SAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 


23% 

PC .FATCHK s INC ANO CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 

ERRHRD ERRNO,WRTMSG, SF IMSG 


TRAP CSERHRD 


G14 
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047634 000634 «WORD 412 
047636 004760 «WORD WRTMSG 
047640 011666 -WORD SFIMSG 
6588 047642 23%: CKLOOP sLOOP IF SELECTED 
047642 104406 TRAP CsCLP1 
6589 047644 004737 010434 JSR PC REWIND sCALL TAPE ay A COMMAND 
6590 047650 103407 ecs 30% s6R, IF NO PROBLEM 
6591 047652 010004 MOV RO,R4 sSET UP REWIND PACKET gly 
6592 047654 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6596 047660 ERRHRD ERRNO, TS2RWN,PKTSSR ;REWIND NOT ACCEPTED 
047660 104456 TRAP CSERHRD 
047662 000635 «WORD 413 
047664 051530 «WORD T32RWN 
047666 011700 -WORD PKTSSR 
6597 047670 30%: CKLOOP sLOOP IF SELECTED 
047670 104406 TRAP CsCLP1 
6598 047672 0135701 051176 MOV as pic R1 sPICK UP XSTO 
6599 047676 010102 MOV Re sSET UP EXPECTED 
6600 047700 052702 000002 BIS eeiti. Re sSET BOT IT IN EXPECTED 
6601 047704 020102 CMP R1,R2 s00ES * REC'D 
6602 047706 001406 BEQ 40% :BR, IF EQUAL (OK) 
6603 047710 004737 020106 JSR PC .FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
6607 047714 ERRHRD ERRNO, TS2B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
047714 104456 er TRAP CSERHRD 
047716 000636 -WORD 414 
047720 051346 -WORD  T32B0T 
047722 016350 -WORD  EXPREC 
6608 047724 408: CKLOOP sLOOP IF SELECTED 
047724 104406 TRAP CscLP1 
6609 047726 012703 000144 : MOV #100. ,.R3 sSTARTING RECORD SIZE 
6610 047732 010300 MOV R3,RO sSET UP MEMORY FILL 
6611 047734 004737 020400 JSR PC .FILLMEM sCALL MEMORY FILLER 
6612 047740 013737 003076 051302 MOV FREE. T32W8 } STARTING WRITE BUFFER ADDRESS 
6613 047746 012737 140005 0513500 65%: MOV #140005, T32PK3 sWRITE DATA,CVC=1,ACK COMMAND 
6614 047754 012704 051300 MOV @T32PK3,R4 :SET UP _R4 WITH PACKET ADDRESS 
6615 047760 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
6616 047762 004737 020400 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
6617 047766 010337 051306 MOV R3,T32SZ sSET UP RECORD SIZE IN PACKET 
6618 047772 010465 177776 MOV R4, TSDOBCRS) s ISSUE COMMAND 
6619 047776 004737 017124 JSR PC ,WALTF sWAIT FOR SSR TO SET 
6620 050002 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6621 050006 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6622 050012 020102 CMP R1,R2 sARE THEY EQUAL 
6623 050014 001406 BEQ 80$ 3BR, IF OK 
6624 050016 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6628 sSOFT ERROR, DON'T CARE ABOUT WRITE 
6629 sCOMMAND'S RESULTS - CHECKING THE 
6630 co COMMAND 
6631 050022 ERRSOFT ERRNO, T32WOC ,PKTSSR TSSR INCORRECT AFTER wr DATA 
050022 104457 TRAP CSERSOFT 
050024 000637 -WORD 415 
050026 052366 -WORO T32wOC 
050030 011700 -WORD PKTSSR 
6632 050032 80$: CKLOOP sLOOP IF SELECTED 
050032 104406 TRAP CsCLP1 
6633 050034 005723 TST CR3)+ sBUMP RECORD SIZE COUNTER 


6634 050036 020327 000156 CMP R3,0110. sAT 160 SIZE YET 


TET a SERRSES 


H14 
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010434 


020106 


051176 
000002 


020106 


2308: 


2408: 


051300 2658: 


051302 
051300 
051306 


2808; 


JSR 
ERRHRC 


65% 
PC ,REWIND 
230% 


RO,R1 
PC ,.FATCHK 
ERRNO, T32RWN, EXPREC 


a R1 


C 
ERRNO, TS2B0T ,EXPREC 


#1,R3 

PC, SPACE 
@140411, T32PK3 
@TS2PK3,R4 

R4, TSOBCRS) 
PC .WAITF 
TSSRCRS),R1 
#SSR,R2 

ans - 


bce FATCHK 
ERRNO, T32ERA,PKTSSR 


FREE , T32RB 
#140401, T32PK3 
#100. , T32SZ 
@T32PK3,R4 

R4, TSOB(RS) 

PC ,WAITF 
TSSRCRS),R1 
@SSR,R2 

R1,R2 

290% 


PC .FATCHK 
ERRNO, TS2TSA,PKTSSR 


SEQ 176 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 416 
-WORD  T32RWN 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 
sPICK UP XSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC‘D 


i8R, IF EQUAL (OK) 
sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sTAPE NOT AT BOT AFTER REWINO 


TRAP CSERHRD 
«WORD 417 
«WORD T32B0T 
-WORD EXPREC 

sLOOP IF SELECTED 
TRAP CsCLP1 

sSET UP FOR SPACE COMMAND 

sISSUE SPACE COMMAND 1 FORWARD 

sERASE DATA,ACK COMMAND 

sSET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

3BR, IF 

sINC AND K FOR MORE T ERRORS 

sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 418 
«WORD T32ERA 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CsCLP1 


sADDRESS OF BUFFER 

sREAD REVERSE ,ACK,CVC=1 COMMAND 
sSET UP THE SIZE OF RECORD 

sSET UP R4 WITH PACKET ADDRESS 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 


AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 

-WORD 419 


I14 
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104403 


2908: 


3008: 
3308: 


ENDSUB 


CHK 
RRNO, TS2ECF ,EXPREC 


SEQ 177 
-WORD T32TSA 
WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sGET DATA READ 


oe tates Git ns THAN 25 ERRORS 
;ERASE COMMAND DION’ T WORK 
TRAP CSERHRD 
. WORD 


sLOOP IF SELECTED 
TRAP CsCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10055: 
TRAP CsESUB 


CZTKHA TK-25 FRT END FUNC 04 


TEST 4: ERASE AND OPERATION INCOMPLETE 


6746 


000000 
013727 
000000 


002116 
177772 
177756 
051344 
020106 


J14 
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051344 


3* 


i 
sTEST 4, SUBTEST 3 


VERIFIES THAT THE OTHER TAPE 
COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 


0 
we 


10$: 


208; 


MOTION 


INCOMPLETE STATUS. 


1. 


2. 


SEQ 178 


THE FOLLOWING TEST SEQUENCE IS EXECUTED: 
THE TAPE IS REWOUND. 


ERASE COMMANDS ARE ISSUED SUCH THAT THE TAPE IS POSITIONED 
ABOUT IN THE MIDDLE OF THE FIRST TRACK. 


IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
CISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI=1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
(OPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (OPP=1) 
REREAD NEXT (COPP=0) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 


DATA RETRY 


PC, T3S2RT2 

PC, T32REST 

PC, T3S2RTS 
#65000. , TS2DLY 
PC, SOF INIT 

20% 

250 


RO, 
ERRNO, SF TERR, SF IMSG 


3>>>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 


TRAP Cs$BSUB 
sSET UP OTHER oe PACKET 
iSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
sSET UP DELAY COUNTER 
:D0 INITIALIZE ON CONTROLLER 
s8R IF INIT WAS OK 
sDELAY ABOUT .25 SEC 
MOV } ail 


MOV  rticiateaate 


. WORD 

DEC -6(PC) 
BNE “4 

DEC -22¢ PC) 
BNE -20 


sBUMP COUNTER 

3BR, IF COUNTER NOT DONE 

sINC AND CHECK FOR MORE THAN 25 ERRORS 

sCONTENTS OF TSSR REGISTER 

sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
. 421 
-WORD SFIERR 
.WORD SFIMSG 


CZTKHA TK-25 FRT END F 


TEST 4: ERASE AND OPERA 


104406 
012703 


012737 


051150 
010332 


020106 


000001 


K14 
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23: 


40$: 


051300 65%: 


70$:; 


@TS2PACKET ,R4 
»WRTCHR 


23% 
a 


0,R1 
ERRNO, WRTMSG , SF IMSG 


PC ,REWIND 
308 
TSSRCRS),R1 
RO,R4 


PC ,FATCHK 
ERRNO, T32RWN,PKTSSR 


on 


CHK 
ERRNO, T32B0T ,EXPREC 


#300. ,R3 
#140411, T32PK3 


PC .FATCHK 
ERRNO, T32WOC ,PKTSSR 


#1,R3 
80$ 


SEQ 179 


sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 
s8R, IF COMMAND ISSUED OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC 4 y 


CSERHRD 
«WORD 422 
-WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLP1 


sCALL_ TAPE REWIND COMMAND 
3BR, IF NO PROBLEM 
sGET TSSR CONTENTS 
sGET PACKET ADDRESS 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP — 


«WORD T32RWN 

«WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sPICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 

3sBR, IF EQUAL (OK) 

;INC ANDO CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER — 


CSERHRD 
-WORD 424 
-WORD T32B0T 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 
3@ OF ERASES SO TAPE IS HALF 1ST TRACK 


sERASE DATA,CVC=1,ACK COMMAND 
3SET UP R4 WITH PACKET ADDRESS 
sISSUE COMMAND 

sWAIT FOR SSR TO SET 

3GET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

;68R, IF OK 

sSAVE ORIG TSSR 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
3TSSR INCORRECT AFTER WRITE DATA 


TRAP CSERHRD 
-WORDB 425 
-WORD T32WOC 
-WORD PKTSSR 


sBUMP DOWN TO NEXT VALUE 
3BR, IF 300 ERASES WRITTEN 


L1i4 
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6797 050652 000746 BR 65% sKEEP GOING 
6798 050654 80$: CKLOOP sLOOP IF SELECTED 
050654 104406 TRAP CsCLP1 
6799 050656 012703 05131 MOV @TS2CMD RS sSTARTING RECORD SIZE 
6800 013737 003076 051302 MOV FREE, T32R6 sSTARTING READ BUFFER ADDRESS 
6801 050670 011537 0513500 : MOV CR3), T32PK3 sREAD DATA,ACK COMMAND 
050674 012704 051300 MOV @T32PK3,R4 sSET UP _R4 WITH PACKET ADDRESS 
6803 050700 012700 177777 MOV #177777,RO0 sSET PATTERN IN CORRECT REGISTER 
6804 050704 004737 020400 JSR PCF TLLMEM sFILL MEMORY WITH ALL ONES 
6805 050710 012737 000144 051506 MOV #100. , T32SZ sSET UP RECORD SIZE IN PACKET 
6806 050716 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
6807 050722 012737 12 051344 MOV #10.,T32DLY sSET UP DELAY COUNTER 
6808 050730 004737 017124 270%: JSR = Thay Sid sWAIT FOR SSR TO SET 
6809 050734 016501 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6810 050740 012702 100214 MOV @SSR!SC!BIT2!BIT3,R2 iSET UP EXPECTED 
6811 050744 020102 CMP 1,R sARE THEY EQUAL 
6812 050746 001425 BEQ 2808 sBR, IF OK 
6813 050750 DELAY 250 sDELAY FOR SSR TO BE SET 
050750 012727 000250 MOV #250,(PC)+ 
050754 000000 ° 
050756 013727 002116 MOV LSOLY,CPC)+ 
050762 000000 -WORD O 
050764 005367 177772 DEC -6(PC) 
050770 001375 BNE --4 
050772 005367 177756 DEC -22(PC) 
050776 001367 BNE --20 
6814 051000 005337 051344 DEC T320LY ;COUNT DELAY ROUTINE DOWN 
6815 051004 001351 BNE 270% 3;BR, IF DELAY HAS NOT ENDED 
6816 051006 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6820 051012 ERRHRD ERRNO, T32ECF ,PKTSSR sTSSR INCORRECT AFTER READ DATA 
051012 104456 TRAP CSERHRD 
051014 000652 -WORD 426 
051016 052305 -WORD  T32ECF 
051020 011700 -WORD  PKTSSR 
6821 051022 280%: CKLOOP ;LOOP IF SELECTED 
051022 104406 TRAP CscLP1 
6822 051024 013701 051204 MOV T32BFR+14,R1 sPICK UP XST3 
6823 051030 010102 MOV R1,R2 sSET UP EXPECTED 
6824 051032 0527 000100 BIS oB1T6,R2 sSET OPI BIT IN EXPECTED 
6825 051036 020102 CMP R1,R2 sIS OPI BIT SET 
6826 051040 001406 BEQ 290% 3BR, IF BIT IS SET 
6827 051042 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6831 051046 ERRHRD ERRNO, TS20PI,EXPREC :OPI BIT NOT SET 
051046 104456 TRAP CSERHRD 
051050 000653 -WORD 427 
051052 052433 -WORD T320PI 
051054 016350 -WORD EXPREC 
6832 051056 290%: CKLOOP ;LOOP IF SELECTED 
051056 104406 TRAP CscLP1 
6833 051060 005723 TST (R3)+ sBUMP COMMAND POINTER 
6834 051062 021327 177777 CMP (R3),0177777 sAT ENO OF TABLE YET 
rt 051066 001300 BNE 265% 3BR, KEEP TRYING COMMANDS 
F ; 
ret ; REWIND THE DRIVE 
i 
6839 051070 004737 010434 JSR PC REWIND ;CALL TAPE REWIND COMMAND 
6840 051074 103411 BCS 226% ;BR, IF NO PROBLEM 


M14 
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6841 051076 010004 MOV RO,R4 sSET UP REWIND PACKET ADDRESS 

6842 051100 016501 000000 MOV TSSRCRS),R1 ;GET TSSR CONTENTS 

6843 051104 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6847 051110 ERRHRD ERRNO, T32RWN,PKTSSR sREWIND NOT ACCEPTED 
051110 104456 TRAP CSERHRD 
051112 000654 -WORD 428 
051114 051530 é » WORD T32RWN 
051116 011700 - WORD PKTSSR 

6848 051120 2268: CKLOOP ;LOOP IF SELECTED 
051120 104406 TRAP CSCLP1 

6849 

6850 

6851 

6852 051122 2913: ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
051122 L10056: 
051122 104403 TRAP CsESUB 

6853 3 

6854 H 

6855 : 

6856 051124 004737 017362 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 

6857 051130 103002 BCC 163$ ;6R, IF NO LOOP REQUIRED 

6858 051132 000137 046732 JMP T32L00P sEXECUTE AGAIN 

6859 051136 163$: EXIT TST sALL DONE THIS TEST 
051136 104432 TRAP CsExIT 


051140 001636 «WORD 1L10053-. 


pte 051166 


6916 051342 
6917 051344 


141005 
177777 


Get oa Me se ANS Be ENG on INCOM ETE Te ee 20-APR-84 08:13 feces 


3° 
sLOCAL STORAGE FOR THIS TEST 


i 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


. BLK’ 
T32PACKET: 
. WOR 
. WORD 
» WORD 
. WORD 
T32DATA: 
. WORD 
WORD 
. WORD 
. WORD 
T32BFR: .BLKW 
3 
.BLKB 
T32PKe: 
. WORD 
. WORD 
.WORD 
. WORD 
.BLKB 
T32PK3: 
WORD 
T32RB: 
T32WB: .WORD 
. WORD 
T32SZ: .WOR 
T32CMD: 
WORD 
. WORD 
. WORD 
WORD 
. WORD 
WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
A 
T32CNT: .WORD 
T32CNU: .WORD 
T32DLY: .WORD 


10-<, - TUV2AE7> 


100004 
T32DATA 
0 

10. 
T32BFR 
te) 

20. 

0 

2s. 


10-< , - TUV2AE7> 
100006 

te) 

0 

6 . 

10-<, - TUV2AE7> 
100005 

FREE 

.e] 

te) 


177777 


to) 
0 


sCOMMAND PACKET FOR TEST 


SEQ 162 


sWRITE CHARACTERISTICS COMMAND, WITH , ACK 


sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER CEXTENT) 


sSPACE RECORDS REVERSE 
sSKIP TAPE MARKS REVERSE 
sREAD REVERSE 

sREREAD PREVIOUS COPP=0) 
sREREAD NEXT COPP=1) 
sREREAD PREVIOUS COPP=1) 
sREREAD NEXT COPP=0) 
sREAD NEXT 

sSKIP TAPE MARKS REVERSE 
s;SKIP RECORDS FORWARD 
sWRITE DATA RETRY 

sEND OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
sTAPE TIMER COUNTER STORAGE AREA 
_sDELAY COUNTER 


CZTKHA TK-25 FRT END FUNC 04 MACRO 
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177777 
000000 


051170 


012701 
012721 
005021 


005021 
012721 


051260 


Bis 
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a° 
sLOCAL TEXT MESSAGES FOR TEST 
‘ - 


*TSSR Not Cor 


SCI 
TS2TSA: .ASCIZ ‘TSSR Not Cor 
32B0E 


ad 
a 
N 


SEQ 183 


‘Tape Not At BOT After REWIND Command (BOT Not Set In xSTO)* 
‘Tape Stetue Alert During Erese To EOT, But EOT Not Set’ 
‘Rewind (POSITION) Command Not Accepted’ 

‘TSSR Ynit. Feiled After REREAD COMMAND’ 


DATA Commend 
"READ REVERSE, After ERASE From BOT, Feiled To Set RIB In xST3’ 
*TSSR Not Correct After SPACE RECOROS Command’ 

rect After READ REVERSE Into BOT’ . 

sor CxXSTO) Still Set After Erese From Taepe''s BOT Maerker’ 
‘ERASE Feiled To Clear Tape (Erese) Tape Properly’ 


Operation Incomlet 
‘Nw Thies Test May Illuminate The Orive Feult Light, Not An Error’ 


TS2ECF: . Zz 

TS2WOC: .ASCIZ ‘TSSR Not Correct After ERASE Command’ 
TS20PI: .ASCIZ ‘OPI Bit (xSTS) nat hee To Set’ 
TST32I0: -ASCIZ ‘Erese And 

FAULTM: —— 


;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
3 
t- 


TSQREST: en 
@TS2PACKET .R1 


MOV 
MOV #100004, (Ri)+ 
MOV ~~ 


CLR CR 
#10. ,.CR1)« 
@T3S2BFR,( Ri)» 
CLR CR1)-> 
MOV #20. ,(R1)> 
CLR CR1)eo 
MOV @0,(R1) 
MOV - 
64%; MOV 0177777, T32BFR(R2) 
Tst -(R2) 
CMP 00 ,R2 
NE 64% 
RTS PC 
T3QRT2: 
SAVREG 
Vv @T32PK2,R1 
MOV #100006 ,(R1)> 
CLR (R1)eo 
CLR CR1)- 


MOV @6.,(R1)> 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, 
sADORESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORE SS 

sSIZE OF DATA BLOCK IN BYTES 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO _TLEmen 
7ALL ONES TO MESSAGE BUFFE! 

sNEXT LOCATION 

sAT END OF LOOP YET 

sKEEP GOING UNTIL DONE 

sRETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE SUBSYSTEM MEt 
sADDRESS OF DATA BLC 
}EXTENDED ADORE SS 

sSIZE OF DATA BLOCK IN BYTES 


WITH ACK, 


C15 
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6976 052750 005021 CLR (Ride 

6977 052752 000207 RTS PC sRE TURN 

6978 052754 TS2RTS; 

6979 052754 SAVREG sSAVE REGISTERS 

6980 052760 012701 0513500 MOV @T32PKS,R1 sSET UP POINTER ADDRESS 

6981 052764 005021 CLR C(R1)> sCOMMAND SP 

6982 052766 005021 CLR (R1)> sADDRESS OF DATA BLOCK 

6983 052770 005021 CLR (R1)> sEXTENDED ADDRESS 

6984 052772 005011 CLR (R1) sSIZE OF DATA TRANSFER BLOCK 

6985 052774 000207 RTS PC sRE TURN 

6986 052776 ENOTST 

052776 L10053: 


052776 104401 TRAP CserTstT 


FSIS Mabe RRP LORY As B61 


D1i5 
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002150 


002166 


-SBTTL TEST S: OPERATIONS AT EOT 


‘i 


sC 
s 


i THIS TEST VERIFIES PROPER OPERATION OF Mas WRITE DATA RETRY 
OMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


‘ 
sTHE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 


TS:: 
FATFLG sCLEAR FATAL ERROR FLAG 
KTFLG sHOLO OFF KT1i1 
@EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 
@TST34ID,RO sASCII MESSAGE TO IDENTIFY TEST 
PC, TSTSETUP 300 INITIAL TEST SETUP 
@1,LOOPCNT sPERFORM 1 ITERATIONS 
T34CNT sCLEAR TAPE RECORD COUNTER 


s 
sTEST S, SUBTEST 1 


Re 
2. 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY 
THE VARIOUS 
IS PERFORMED: 


TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 


THE TAPE IS REWOUND. 


WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS ony WITH EOT*1. ERRORS 


ERRORS CAUSE A FATAL ERROR REPORT. RECURDS WITH DATA 
ERRORS ARE RETRIEO, SO THE TAPE ENDS UP WITH GOOD DATA. 


ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
om pre By STATUS ALERT TERMINATION OCCURS, WITH 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS, WITH EOT=*1 AND TMKe=1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


A SPACE RECCROS FORWARD COMMAND, WITH A RECORD COUNT OF 


SEQ 185 


TES SoBe RA Lone at Pr 


3k 
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T34L00P: 


13. 


1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT#1. 


A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT#1. 


A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT#1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=0. 


A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 
SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=0, 
BOT=1, AND RIB=1. 


SEQ 186 


Fests “oBERAT IONS 


053040 
053040 
053040 


AT B51 


104402 


005737 
001402 
000137 


012737 


002140 
055372 


057726 
060164 


060122 
176750 


Fi5 
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a¢ 
; 
sTEST S, SUBTEST 1 


3 

sVERIFIES THAT WRITING OVER THE END-OF-TAPE CEOT) 
sMARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
; TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, THE 
sTAPE WILL RUN OFF THE END OF THE REEL, CAUSING THE 
sPROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 

: INDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 
sMUST BE PERFORMED USING THE TRANSPORT'’S BUILT-IN 
sMAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 
sIF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE 
sTRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
sTHE END OF THE REEL BUT THE TRANSPORT MUST BE 
sMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
iFATAL DIAGNOSTIC ERROR. 

; 

: 

; 

i 

ge 


SEQ 187 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST »>>>>>>>>>>>> 
T 


els 


TRAP 


SPECIAL SOFTWARE PARAMETER CHECK TO REDUCE THE MTTR OF THE 
ORIVE I.E. SKIPS THIS SUBTEST IF SELECTED 


3 
8 9606066666608 6666086066088 00866 666666060666666660666666646668600606646866 


3 
e 
é 
° 
8 2O28666606 8660466866666 6866666666605 6060666686646606660606666006006064066608864608 
3 
4 
é 


TST EOTSEL s;CHECK SWITCH FOR PARAMETER 
BEQ S$ sBR, IF OPTION NOT SELECTED 
JMP 600$ sBR, NO EOT TEST SELECTED 


58: 
3 
4 


. 
$9 92060066 66660666 04666606066066 066866 60606666060606006666606608646460400606066488 


: 
H SET UP THE PACKET BUFFERS AND WAIT LONG TIME FOR SSR 
; THEN ISSUE A SOFT INITIALIZE 
; senennmneeneadeenetbensanneasenbenennennnnenenenensubensansennanatin 
3 
JSR PC, TS4REST 3SET COMMAND PACKET 
JSR PC, T34RTS TRESTORE PACKET 
JSR PC, T34RT2 sSET UP OTHER COMMAND PACKET 


055564 MOV #65000. , TS4DLY sSET UP COUNTER 


CsBSUB8 


G15 


HA_ TK - MA - - - 
794 s! OPERAT One at P51? CRO M1200 20-APR-84 06:13 PAGE 112-1 SEQ 188 
7134 053076 004737 016650 10%: JSR PC ,SOF INIT 309 INITIALIZE ON CONTROLLER 
7135 053102 103433 ecs 20% 36R IF INIT WAS OK 
7136 053104 DELAY 250 sDELAY A WHILE 
053104 012727 000250 MOV 0250 ,(PC)+ 
053110 000000 -WORD O 
053112 013727 002116 MOV LSOLY,CPC)>+ 
053116 000000 -WORD O 
053120 005367 177772 DEC -6(PC) 
053124 001375 BNE eo 
053126 005367 177756 OEC -22(PC) 
053132 001367 BNE -- 
7137 053134 016501 000000 MOV TSSRCRS),R1 3sGET TSSR STATUS 
7138 053140 032701 000200 BIT @SSR,R1 sCHECK FOR SSR SET 
7139 053144 001012 BNE 20% 36R, WHEN SSR IS SET 
7140 053146 005337 055564 DEC T340LY sBUMP COUNTER DOWN 
7141 053152 001351 BNE 10% sB8R, IF MORE DELAY REQUIRED 
7142 053154 004737 020106 JSR PC ,.FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
7146 053160 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
7147 053162 ERROF ERRNO,SFIERR,SFIMSG 3sFATAL ERROR TSSR WAS NOT OK 
053162 104455 TRAP CSERDOF 
053164 000765 -WORD S01 
053166 003554 -WORD SFIERR 
053170 011666 -WORD SFIMSG 
7148 053172 208: CKLOOP 3LOOP IF SELECTED 
053172 104406 TRAP CSCLP1 
7149 
7150 
7151 3 
sae . $ OOO00000000000000000600606000660000000060000006060006060606000000000000008 
1 3 
sas 3 ISSUE A WRITE CHARACTERISTICS COMMAND TO CONTROLLER 
3 
sae § 9O000006000006066666006666600060000606000606060000000000000000060000000000008 
1 : 
7158 053174 012704 055420 MOV @T34PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
7159 053200 004737 010332 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
7160 053204 103407 BcSs 30$ 38R, IF COMMAND ISSUED OK 
7161 053206 004737 020106 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7165 053212 010001 MOV RO,R1 3sSAVE CONTENTS OF TSSR 
7166 053214 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
053214 104456 TRAP CSERHRD 
053216 000766 -WORD 502 
053220 004760 .WORD WRTMSG 
053222 011666 -WORD SFIMSG 
7167 053224 30%: CKLOOP ;LOOP IF SELECTED 
oe 053224 104406 TRAP CSsCLP1 
3 
A 4 {OOOO O00060000000006000600000606600000666606666066000006000606800000000008 
$ 
oes 3 ISSUE A REWIND COMMAND 
F 
wre § OO600606666666600006666060666666000606000066000006660000000000000000008 
174 ; 
7175 053226 004737 010434 JSR PC ,REWIND sREWINO CALL 
7176 053232 103411 BCS 35% 368R, IF TSSR IS OK (GOOD) 


7177 053234 016501 000000 MOV TSSRC(RS),R1 sGET TSSR 
7178 053240 010004 MOV RO,R4 sSET UP PACKET 


H1i5 


TK-25 F F 04 M -APR - P . 
geryna.! OPERA TOR aT NST MACRO M1200 20 64 06:13 PAGE 112-2 SEQ 189 
7179 053242 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7183 053246 ERRHRD ERRNO, TS4RWN,PKTSSR iTSSR IS INCORRECT AFTER REMIND 
053246 104456 TRAP CSERHRD 
053250 000767 -WORD 503 
053252 057246 .WORD T34RWN 
053254 011700 .WORD PKTSSR 
7184 053256 35%: CKLOOP sLOOP IF SELECTED 
ase 053256 104406 TRAP CSCLP1 
+ 
7186 § PHSOSALSEASOSSESEAEASEAADESASEAESESEASASESEASESESESEESEEEEEEEEESEEEEEEE 
7187 Fy 
7188 3 ISSUE A WRITE COMMAND, CHECK FOR ERRORS, THIS IS SO THAT THE 
a : DRIVE WILL NOT JUST HANG IF AN ERROR OCCURS. 
3 
7191 § SSRHAASASSSHSSSHSSSASEASESSADASSASSEAESESSSSESESEESEEESAEHEEESEESEEEEESE 
7192 3 
7193 053260 012737 140005 055550 MOV #140005 , T34PK3 s;WRITE DATA, ACK, CVC=1 
7194 053266 013737 003076 055552 MOV FREE, T34W8 sSET UP WRITE BUFFER ADDRESS 
7195 053274 012737 066540 055556 MOV #28000. , 134SZ 3;SET UP BUFFER SIZE CINC @ OF BYTES) 
7196 053302 012704 055550 MOV @T34PK3 RO 3R4 = POINTER TO PACKET 
7197 053306 010465 177776 368: MOV R4, TSOBCRS) ISSUE COMMAND 
7198 053312 004737 017124 JSR PC ,WAITF 3WAIT FOR SSR TO SET 
7199 053316 016501 000000 MOV TSSRCRS),R1 :GET TSSR CONTENTS 
7200 053322 012702 000200 MOV @SSR ,R2 3;SET UP EXPECTED 
7201 053326 020102 CMP R1,R2 s;ARE THEY EQUAL 
7202 053330 001407 BEQ 39% 38R, IF ALL IS WELL NO PROBLEMS 
7203 053332 004737 020106 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7207 053336 ERRSOFT ERRNO, WRTERR,PKTSSR ;TSSR INCORRECT AFTER WRITE TAPE 
053336 104457 TRAP CSERSOFT 
053340 000770 TWORD 504 
053342 005015 “WORD WRTERR 
053344 011700 .WORD PKTSSR 
7208 053346 000757 RA 36$ 38R, TO DO MORE CONTROLLED WRITES 
7209 053350 398: CKLOOP ;LOOP ON ERROR IF SELECTED 
053350 104406 TRAP CsCLP1 
7210 
7211 
7212 3 
7a FPSSASHSHSSSASSSOSEASSSASASHEEESSESASEEEEEHS LSSEESESEBESSEREEESOOEEEEEHEEEE 
14 ; 
71a : ISSUE A WRITE COMMAND, KEEP GOING UNTIL TAPE STATUS ALERT 
344 : 26 246444426644644668646046464604646046644046 66 5068064084848 468468868664586106066886486688 
1 3 
7219 053352 012737 140005 055550 MOV #140005, T34PK3 sWRITE DATA, ACK, CVvCe#1 
7220 053360 012703 176750 MOV #65000. ,R3 :SET MAX NUMBER OF WRITES 
7221 053364 013737 003076 055552 MOV FREE , T34W8 3;SET UP WRITE BUFFER ADORESS 
7222 053372 012737 066540 053556 MOV #28000. , T34SZ 3SET UP BUFFER SIZE (INC @ OF BYTES) 
7223 053400 012704 055550 MOV OT34PK3,R4 3R4 = POINTER TO PACKET 
7224 053404 010465 177776 40$: MOV R4, TSOBC(RS) ISSUE COMMAND 
7225 053410 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 
7226 053414 016501 000000 MOV TSSR(RS), RL 3GET TSSR CONTENTS 
7227 053420 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
7228 053424 020102 cMP R1,R2 s;ARE THEY EQUAL 
7229 053426 001010 BNE 50$ 38R, IT MIGHT BE END OF TAPE 
7230 053430 005303 DEC RS s:DEC RECORD COUNTER 


7231 053432 001364 BNE 40$ ;BR, IF MORE TO GO 


Tis 
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Fests oBeRAT IONS AT COT SEQ 190 
7232 053434 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7236 053440 ERROF ERRNO, T34ET,PKTSSR sEOT NOT FOUND (USE SHORTER TAPE?) 
053440 104455 TRAP CSEROF 
053442 000771 .WORD 505 
053444 057057 .WORD T34ET 
vane 053446 011700 .WORD PKTSSR 
; 
7238 3 SHESASALASASASASEASAAAALASHAAAASESASAOSASEAEESEEEEAEEEEEEEEEEEEEEEEAEAEEER 
7239 3 
7240 ; HAVE TAPE STATUS ALERT, NOW CHECK FOR EOT. IF NEITHER KEEP GOING 
: 
7242 ERaPOHMAARHEEAEAAARARAGHAKEHAALHAEHHAREREHEEAHAEHEAEAEASRASCHAHROAEHHERASERHEEH 
7243 3 
7244 053450 50%: 
7245 053450 022701 100210 CMP #100210,R1 sCHECK FOR UNCORRECTABLE ERROR 
7246 053454 001003 BNE 553 ;8R, IF IT WASN’T UNCORR. 
7247 053456 004737 060020 JSR PC ,EWCHK sCHECK FOR EARLY WARNING 
7248 053462 103750 ecs 40$ ;8R, IF EARLY WARNING FOUND 
7249 053464 032701 000004 553: BIT eBIT2,R1 sCHECK FOR TAPE STATUS ALERT 
7250 053470 001001 BNE 608 :8R, IF SET 
7251 053472 000744 BR ;KEEP GOING 
7252 053474 013701 055446 608: MOV T34BFR+6,R1 sPICK UP XSTO 
7253 053500 010102 MOV R1,R2 3SET UP EXPECTED 
7254 053502 052702 000001 BIS @BITO,R2 3SET THE EOT BIT ON IN EXPECTED 
7255 053506 020102 CMP R1,R2 3WAS THE BIT ON 
7256 053510 001402 BEQ 80$ 3BR, IF EOT WAS FOUND 
7257 053512 000137 053404 UMP 40% 3KEEP LOOKING 
7258 053516 80$: CKLOOP ;LOOP IF SELECTED 
on 053516 104406 TRAP = CSCLP1 
; ‘ 
Loy PRAGA REHRAAAHHHARKHAEKDAHAAALHEEASEARLASASAALEHHARAALRSEHARAHAREHADHH 
261 3 
hey ; ISSUE ONE MORE WRITE AFTER EOT DETECTED 
é 
wes FPAARAGHRERHHALABHHARHHEDRLEALAADARAMAHRHERADEAROARGMASAHAAADAAARAREMASHHDEM 
26 3 
7266 053520 012737 140005 055550 MOV 140005, T34PK3 sWRITE DATA, ACK, CvC=1 
7267 053526 013737 003076 055552 MOV FREE, T34WB 3SET UP WRITE BUFFER ADDRESS 
7268 053534 012737 066540 055556 MOV 28000. , T34SZ sSET UP BUFFER SIZE (INC @ OF BYTES) 
7269 053542 012704 055550 MOV OT34PK3,R4 3R4 = POINTER TO PACKET 
7270 053546 010465 177776 MOV R4, TSOBCRS) sISSUE COMMAND 
7271 053552 004737 017124 JSR PC .WAITF 3WAIT FOR SSR TO SET 
7272 053556 016501 000000 MOV TSSR(R5S),R1 ;GET TSSR CONTENTS 
7273 053562 012702 100204 MOV @SC!SSR!BIT2,R2 3SET UP EXPECTED 
7274 053566 020102 CMP R1,R2 ;ARE THEY EQUAL 
7275 053570 001406 BEQ 90% ;8R, IF THEY ARE OK 
7276 053572 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7280 053576 ERRHRD ERRNO, T34ET2,PKTSSR \WRITE TAPE AT EOT FAILED. To SET TSA 
053576 104456 CSERHRD 
053600 000772 "WORD 506 
053602 056430 “WORD  T34ET2 
053604 011700 “WORD PKTSSR 
7281 053606 90$: CKLOOP ;LOOP IF SELECTED 
aa 053606 104406 TRAP = CSCLP1 
3 
7283 8 4O2466646464646464666406664666646666664464640666646466086464004640660604640064640006464 


7284 3 


J15 
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TEST 5S: OPERATIONS AT EOT 
128 : CHECK TO BE SURE EOT IS STILL SET, IT SHOULD BE 
t 
7287 : SPHLAAAAHAAAKAAALASOAAASEEAAHABSSASASASEAAAASASASLAORASAASALASESEEASEAEEEEEES 
7288 8 
7289 053610 013701 055446 MOV T34BFR+6,R1 sPICK UP xSTO 
7290 053614 010102 MOV R1,R2 3;SET UP EXPECTED 
7291 053616 052702 000001 BIS @BITO,R2 3SET THE EOT BIT ON IN EXPECTED 
7292 053622 020102 CMP R1,R2 ;WAS THE BIT ON 
7293 053624 001406 BEQ 1008 38R, IF EOT WAS FOUND 
7294 053626 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7298 053632 ERRHRD ERRNO, T34ETN,EXPREC sEOT BIT (XSTO) NOT SET 
053632 104456 TRAP CSERHRD 
053634 000773 .WORD 507 
053636 056516 .WORD T34ETN 
053640 016350 .WORD €EXPREC 
7299 053642 100$: CKLOOP ;LOOP IF SELECTED 
ae 053642 104406 TRAP CSCLP1 
a 
7301 FARRAR RARHAREHAARARHRAADHARREARAARAHEHEHARARARSERSHEASLAERAARERARSEARHREDE 
7302 3 
7308 3 NOW ISSUE A WRITE TAPE MARK, STILL BEYOND EOT 
° 
7305 SRAOaEREEDRAEAAALEAREHAASERAHAAEARAAHHAHARARRHAAAAAARARARADAEAEHREHK HH DEOH 
7306 3 
7307 053644 012737 140011 055550 MOV #140011, T34PK3 s;WRITE TAPE MARK, ACK, CVC=1 COMMAND 
7308 053652 012704 055550 MOV @T34PK3 ,R4 3R4 = POINTER TO PACKET 
7309 053656 010465 177776 MOV R4, TSDBCRS) ISSUE COMMAND 
7310 053662 004737 017124 JSR PC,WAITF s;WAIT FOR SSR TO SET 
7311 053666 016501 000000 MOV TSSRCRS),R1 GET TSSR CONTENTS 
7312 053672 012702 100204 MOV @SC!SSR!BIT2,R2 3;SET UP EXPECTED 
7313 053676 020102 CMP R1,R2 3;ARE THEY EQUAL 
7314 053700 001406 BEQ 1108 3BR, IF STATUS IS GOOD (OK) 
7315 053702 004737 020106 JSR PC ,FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
7319 053706 ERRHRD ERRNO, T34WTM,PKTSSR i WRITE TAPE MARK FAILED 
053706 104456 TRAP CSERHRD 
053710 000774 .WORD 508 
053712 056341 .WORD T34WTM 
053714 011700 .WORD PKTSSR 
7320 053716 110%: CKLOOP ;LOOP IF SELECTED 
Sees 053716 104406 TRAP CSCLP1 
3 
rast LPRAPERERAANRGRAHHOESEARAAHHAEHADARLAALHAAAHHKAAHARAHARSSAALHHHARARKAAAHEH 
3 
LL of ; NOW CHECK TO BE SURE EOT IS STILL SET 
3 
en PPEMRHEEAEAEHEHAHREDEERARERAEHEHRAAEHERAHAARAARERARAHRAAHMEBREHEAHEREH HERD 
8 
7328 053720 013701 055446 MOV T34BFR+6,R1 3;PICK UP XSTO 
7329 053724 010102 MOV R1,R2 :SET UP EXPECTED 
7330 053726 052702 000001 BIS oBITO,R2 3SET THE EOT BIT ON IN EXPECTED 
7331 053732 020102 CMP R1,R2 3;WAS THE BIT ON 
7332 053734 001406 BEQ 1208 :B8R, IF EOT WAS FOUND 
7333 053736 004737 020106 JSR PC ,FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
7337 053742 ERRHRD ERRNO, T34ETO,EXPREC ‘EOT BIT (xXSTO) NOT SET 
053742 104456 TRAP CSERHRD 


. 509 
053746 055764 -WORD T34ETO 


oo TK-25 FRT END FUNC 04 


TEST S: OPERATIONS AT EOT 


053750 
053752 
053752 


054072 
054076 
054100 


016350 
104406 


012737 
012737 


013701 
010102 


013701 
010102 
052702 


141410 055550 
000001 055552 


055446 
100000 
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TRAP 


a 
FASAAAAARARALADLERSASAROEDAEAESEEEAERESEEASEEAAEEEADEEEAEEESEEASEEEEEEEED 
a 


120$: CKLOOP sLOOP IF SELECTED 


SEQ 192 


EXPREC 
CsCLP1 


; NOW ISSUE A SKIP TAPE MARK REVERSE RIGHT BACK INTO THE JUST WRITTEN TM 


3 
aE 


MOV #141410, T34PK3 


MOV 01, T34WB sSET NUMBER (1) OF TMS TO SKIP 

MOV @T34PK3,R4 724 = POINTER TO PACKET 

MOV R4, TSDBCRS) s ISSUE COMMAND 

JSR PC ,WAITF sWAIT FOR SSR TO SET 

MOV TSSR(RS) RL sGET TSSR CONTENTS 

MOV @SSR ,R2 sSET UP EXPECTED 

CMP R1,R2 sARE THEY EQUAL 

BEQ 130% 38R, IF STATUS 1S GOOD (OK) 

JSR PC .FATCHK sINC ANDO CHECK FOR MORE THAN 25 

ERRHRD ERRNO, T34STM,PKTSSR :SKIP TAPE MARK REVERSE — 
. WORD 
- WORD 

130%: CKLOOP sLOOP IF SELECTED 

TRAP 


3 
PRAKAHERKARHHRAERAARORAHRHAMEEHRRHAREHEAAKER RAE RHAKAERHARAAREHHRESMADARAH 


; 
; EOT SHOULD STILL BE SET 


6 
FROMM BEBAKRARALAHRAAARASAAKAEAHEHREARAHERAHAAREHAAREHAHAAEMEAEKARHMEHHAA RAKED SH 
é 


MOV Say ap R1 sPICK UP XSTO 
MOV R1,R2 sSET UP EXPECTED 
BIS @B1TO,R2 sSET THE EOT BIT ON IN EXPECTED 
CMP ry sWAS THE BIT ON 
BEQ 3BR, IF EOT WAS FOUND 
JSR Pe. OF ATCHK ;INC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, T34STE,EXPREC ;EOT BIT (XSTO) NOT SET — 
- WORD 
140$: CKLOOP ;LOOP IF SELECTED 
TRAP 


3 
FFFAAAAHARSAKESSSSASSAALEEADEAADEAEEODDADDETAADEEEOADEDOOEEEEDEEODEEDEDESD 
2 


; THE TMK BIT SHOULD BE SET ALSO 
r] 
{ RRPAPAEAEAEADEAEEEDEDEEDDEEEOEEEEDEEEEDEREEOO446000000060666000000000008 
3 
MOV T34BFR+6,R1 sPICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 


BIS #BIT15,R2 3SET THE TMK BIT ON IN EXPECTED 


sSKIP TAPE MARK REVERSE ACK, _ COMMAND 


CsCLP1 


CsCLP1 


= Sta TK-25 FRT END FUNC 04 
TEST 5S: OPERATIONS AT EOT 


7389 
7390 
7391 
7395 


012737 


013701 
2 


020106 


140410 
000001 
SO 


Lis 
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1508: 


"bs = 


pee FATCHK 
ERRNO, TS4TM., -XPREC 


CKLOOP 


SEQ 193 


sWAS THE BIT ON 

;BR, IF TMK WAS FOUND 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
TMK (XSTO) NOT SET 


TRAP CSERHRD 
«WORD 512 
-WORD T34TMK 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


6 
PASSORRHAAAREHRAREARHREAAARHRHAEHHAARAOARHAEARARHAEAAAANEDAEENEAERSARAEREAEHED 


ISSUE SPACE RECORDS REVERSE FOR 1 RECORD, STILL BEYOND EOT 


: 
PRAEEAORRAAREDARDAARABRRAERARHARARRAAARADRAARAREAOAEARAAHAERHHAALARHARAE KES 


055550 
055552 


160$: 


MOV #140410, T34PK3 
MOV #1, T3408 
MOV @T34PK3,R4 
MOV R4, TSDBCRS) 
JSR PC ,WAITF 
MOV TSSRCRS),R1 
MOV @SC!SSR!BIT2,R2 
CMP eR2 
BNE 160$ 
SR 


J PC .FATCHK 
ERRHRD ERRNO, T34P0S,PKTSSR 


CKLOOP 


sSPACE RECORDS REVERSE, ACK, CvC=1 CMD 
sSPACE ONE RECORD REVERSE 

7R4 * POINTER TO PACKET 

; ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

3B8R, IT MIGHT BE END OF TAPE 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSPACE RECORDS REVERSE F —? 


CSERHRD 
-WORD 515 
-WORD T34P0S 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CscLP1 


G 
PREGSAHRARABARASAKHHAARAHAARHRAGHAHERAEDRERAHAAAAREAEARARAARHAHAHSALALARRAAHR 


EOT SHOULD STILL BE SET 


3 
PRSRRAERARBAREAASARBAEARRRARAAARERAMARHARLARRHORARHEAAMEAHRHEAADREAAHERED 


163%: 


MOV T34BFR+6,R1 
MOV 1,Re 

BIS #BITO,R2 
CMP R1,R2 

BEQ = Bl 

JSR PCF 


ATCHK 
ERRHRD ERRNO, T34ETS,EXPREC 


CKLOOP 


sPICK UP xXSTO 

;SET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 

sWAS THE BIT ON 

3BR, IF EOT WAS FOUND 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
;EOT BIT (XSTO) NOT SET 


TRAP CSERHRD 

«WORD 514 

-WORD T34ETS 

-WORD EXPREC 
;LOOP IF SELECTED 

TRAP CsCLP1 


3 
FASAAESASEAASASSASAAAAEAAHASAAADEASEADEAAASOSSSEREDESAASAASEEALASEAEASERSE 


M15 
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eer : HOWEVER, THE TMK BIT SHOULD NOW BE CLEAR 
4b 
7442 RARE ARRRAREEERERASAADARARDAAMAAHRARAGHEARARERARHAAOREARAAREHAAHL AH ERARABES 
7443 3 
7444 054244 013701 055446 MOV T34BFR+6,R1 sPICK UP XSTO 
7445 054250 010102 MOV R1,R2 3SET UP EXPECTED 
7446 054252 042702 100000 BIC #B1IT15,R2 s;CLEAR THE TMK BIT ON IN EXPECTED 
7447 054256 020102 cMP R1,R2 3;WAS THE BIT ON 
7448 054260 001406 BEQ 165% :8R, IF TMK WAS FOUND 
7449 054262 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7453 054266 ERRHRD ERRNO, T34TMN,EXPREC SCOULD NOT CLEAR TMK (ZSTO) 
054 104456 TRAP CSERHRD 
054270 001003 -WORD 515 
054272 057515 -WORD T34TMN 
054274 016350 WORD EXPREC 
7454 054276 165%: | CKLOOP s;LOOP IF SELECTED 
= 054276 104406 TRAP CSCLP1 
i 
7456 FARA ARMRARERAARREHERERERAAEERBARRARAMARMARAARAREDRRRABHRARRARBRARAR SHRED 
7457 : 
ped : NOW SPACE 3 RECORDS IN REVERSE 
3 
7460 Rea AERREERERAKERARRAREAAMARAARARAERAEREAHAAREASEEAREAEADAEHHEMARSEHDER HAH 
7461 3 
7462 054300 012737 140410 055550 MOV #140410, T34PK3 sSPACE RECORDS REVERSE, ACK, CVC=1 CMD 
7463 054306 012737 000003 055552 MOV 03, 734W8 3SPACE THREE RECORD REVERSE 
7464 054314 012704 055550 MOV @T34PK3,R4 3R4 = POINTER TO PACKET 
7465 054320 010465 177776 MOV R4, TSOBCRS) : ISSUE COMMAND 
7466 054324 004737 017124 JSR PC ,WAITF s;WAIT FOR SSR TO SET 
7467 054330 016501 000000 MOV TSSR(RS),RL sGET TSSR CONTENTS 
7468 054334 012702 000200 MOV SR, 3SET UP EXPE 
7469 054340 020102 CMP R1,R2 3;ARE THEY EQUAL 
7470 054342 001406 BEQ 167$ 38R, IT MIGHT BE END OF TAPE 
7471 054344 004737 020106 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
7475 054350 ERRHRD ERRNO, T34P0S,PKTSSR SPACE RECORDS COMMAND FAILED 
054350 104456 TRAP CSERHRD 
054352 001004 "WORD 51 
054354 055676 .WORD T34P0S 
054356 011700 WORD PKTSSR 
7476 054360 167$: | CKLOOP ;LOOP IF SELECTED 
ah 054360 104406 TRAP CSCLP1 
be s eaeenecnennnsnnnnnoseseenseecoennennennesesenrnseniosnnn;se+eensnsetes 
é 
neee : NOW THE EOT BIT SHOULD BE CLEAR 
. 
rene PEKERAHERRARARARRERRAEREALAREHRAARRARAEKAARREREARHAPAPEARAEAKRRARHARREDKA 
e 
7484 054362 013701 055446 MOV T34BFR+6,R1 sPICK UP XSTO 
7485 054366 010102 MOV R1,R2 3SET UP EXPECTED 
7486 054370 042702 000001 BIC #BITO,R2 ;CLEAR THE EOT BIT ON IN EXPECTED 
7487 054374 020102 CMP R1,R2 sWAS THE BIT OFF 
7488 054376 001404 BEQ 170$ ;8R, IF EOT WAS FOUND 
7492 054400 ERRHRD ERRNO, T34ETC,PKTSSR ;UNABLE TO CLEAR EOT INDICATION 
054400 104456 TRAP CSERHRD 
054402 001005 . WORD 


517 
054404 056155 -WORD T34ETC 


—- 


TET si" 


054406 


054410 
054410 


054530 
054536 


END F 


RATIONS AT 


011700 


104406 


012737 
012737 


013701 
2 


012737 
013737 
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"eh: 


140010 055550 
000004 055552 


140401 055550 
003076 055552 


. WORD 
170$: CKLOOP sLOOP IF SELECTED 

TRAP 
pPadecsenaeresanncssonnacssosescocsssoanngsssseoanesssseannesesoonnnsees 
; NOW SPACE 4 RECORDS FORWARD, ONCE AGAIN OVER EOT MARKER 


é 
§ AHSAAASEAEAAESSAASSEARASERALEEEAREEAEAEAEEREAEEEADEAESESEEAEEEDADADADRDA 


MOV #140010, T34PK3 


MOV 04, T34WB sSPACE FOUR RECORDS 
MOV @TS4PK3,R4 3R4 = POINTER TO PACKET 
MOV R4, TSDOBCRS) s ISSUE COMMAND 


JSR PC ,WAITF 
MOV TSSRCRS),R1 


sWAIT FOR SSR TO SET 
s;GET TSSR CONTENTS 


MOV @SSR,.R2 ;SET UP EXPECTED 
CMP R1,R2 3ARE THEY EQUAL 
BEQ 1908 ;BR, IT MIGHT BE END OF TAPE 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, 1T34P0S,PKTSSR ;SPACE RECORDS COMMAND FAILED 
. WORD 
“WORD 
190$:  CKLOOP ;LOOP IF SELECTED . 
TRAP 
CO ee EEE 
3 
; ONCE AGAIN THE EOT INDICATION SHOULD BE SET IN XSTATO 
FEC ee ee a aT TT TT 
: 
MOV T34BFR+6,R1 ;PICK UP XSTO 
MOV R1,R2 ;SET UP EXPECTED 
BIS @BITO,R2 ;SET THE EOT BIT ON IN EXPECTED 
CMP R1,R2 ;WAS THE BIT ON 
BEQ 200$ 3BR, IF EOT WAS FOUND 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, T34ETS,EXPREC 3EOT BIT (XSTO) NOT SET mI 
. WORD 
~ WORD 
WORD 
200$:  CKLOOP ;LOOP IF SELECTED 
TRAP 
EEE ENE LLLP AESOP. OMe LED LE LRRD 
3 
; NOW ISSUE A READ REVERSE COMMAND 


i 
§ FHAARESEEARESEASEAAEESEESADEELESEDADEEEEDEADEEDAEOEOAS4OKEDDEDEDKADLERASALS 


MOV #140401, T34PK3 sREAD REVERSE, ACK, CvC=1 
MOV FREE , T34RB sSET UP WRITE BUFFER ADDRESS 


SEQ 195 


PKTSSR 


CsCLP1 


sSPACE RECORDS FORWARD, ACK, CvC=1 


T34ETS 
EXPREC 


CsCLP1 


Bi6 


TK -25 fat END FUNC @@ © MACRO M1200 20-APR-84 08:13 PAGE 112-9 SEQ 196 
year 5S: RATIONS atest 
7544 054544 012704 055550 MOV eT34PK3,R4 sR4 © POINTER TO PACKET 
7545 0545.0 010465 177776 MOV R4, TSDBCRS) sISSUE COMMAND 
054554 004737 017124 JSR PC. WAITF sWAIT FOR SSR TO SET 
7547 054560 016501 000000 MOV TSSRCRS), AL sGET TSSR CONTENTS 
054 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
7549 054570 020102 CHP Ri, Re sARE THEY EQUAL 
7550 054572 001406 BEQ 2058 18R, ONLY SSR IS SET 
7551 054574 004737 020106 JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
7555 054600 ERRHRD ERRNO, TS4RRE,PKTSSR }READ REVERSE COMMAND FAILED 
054600 104456 CSERMRO 
054602 001010 "Moro $20 
054604 “WORD T34RRE 
054606 011700 WORD  PKTSSR 
7556 054610 205%:  CKLOOP sLOOP IF SELECTED 
aed 054610 104406 TRAP ss CSCLP1 
a 
7558 BF SSOSSESSSSESSEESEEOSSESESSHSHSHSSESHSSSSHSHSSSSSESHESSSSSESHSSESEESEOEEEE 
7559 ry 
7560 , NOW ISSUE A READ REVERSE COMMAND 
4 
7562 BSSSSSSSSSESSSSSSSSSSHSOSSSSHSHSSSESSSEEESSEESEHSHEESEEHSEESSESEEEHEEEE 
7563 054612 012737 140401 055550 MOV 0140401, T34PK3 sREAD REVERSE, ACK, CVC*1 
054620 013737 003076 055552 MOV FREE , T34RB sSET UP WRITE BUFFER AORESS 
7565 054626 012704 0555 MOV @T34PK3,R4 sR4 © POINTER TO PACKET 
7566 054632 010465 177776 MOV Ra, TSOBCRS) sISSUE COMMAND 
7567 054636 004737 017124 JSR PC. WAITF sWAIT FOR SSR TO SET 
016501 000000 MOV TSSR(RS). RL 1GET TSSR CONTENTS 
012 000200 MOV @SSR,.R2 sSET UP EXPECTED 
7570 054652 920102 CMP R1,R2 sARE THEY EQUAL 
7571 054654 001406 BEQ 2108 ;0R, IT MIGHT GE END OF TAPE 
7572 054656 004737 020106 JSR PC. FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7576 054662 ERRHRD ERRNO, TS4RRE,PKTSSR iSECOND READ REVERSE COMMAND FATLED 
054662 104456 CSE 
054664 001011 TWORD $21 
054666 "WORD TS4RRE 
054670 011700 WORD PKISSR 
7577 054672 2108: CKLOOP sLOOP IF SELECTED 
ps7g OUO72 108406 TRAP ss CSCLP1 
7579 -snnbennbenensneiasannnasnensnanennimennntenenennneieaabiinedinimens 
7580 a 
7581 , NOW ISSUE A READ COMMAND 
7582 é 
7583 BSSOSSSSSEOHSHSHSSHOSHSSHSSSSESOHESESESHSHESSESESHSSEESESEESSESEHEEEEEEE 
7584 054674 012737 140001 055550 MOV #140001, T34PK3 sREAD DATA, ACK, CvC*1 
7585 054702 013737 003076 055552 MOV FREE, TS4RB 1SET UP WRITE BUFFER ADORESS 
054710 012737 540 055556 MOV #28000. , T34SZ sSET UP BUFFER SIZE (INC @ OF BYTES) 
7587 054716 012704 055550 MOV @T34PK3.R4 3R4 © POINTER TO PACKET 
7588 054722 010465 177776 MOV Ra, TSDBCRS) sISSUE COMMAND 
7589 054726 004737 017124 JSR PC WAITF ;WAIT FOR SSR TO SET 
7590 054732 016501 000000 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
7591 054736 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
7592 054742 020102 CMP R1,R2 sARE THEY EQUAL 
7593 054744 001406 BEQ 2308 1OR, IT MIGHT BE ote OF TAPE 
7594 054746 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7598 054752 ERRHRD ERRNO, TS4RAF .PKTSSR TREAD FORWARD COMMAND FAILED 
054752 104456 TRAP  CSERHRD 


C16 
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0 . WORD 2 
Ssarse oSte00 ‘WORD PSaRRF 
054760 011700 -WORD PKTSSR 
7599 054762 2308: CKLOOP s;L00P IF SELECTED 
054762 104406 TRAP CSCLP1 
7600 054764 012737 140001 055550 MOV #140001 , T34PKS sREAD DATA, ACK, CvC*1 
7601 054772 013737 003076 055552 MOV FREE , T34RB sSET WP WRITE BUFFER ADORESS 
7602 055000 012737 066540 055556 MOV #28000. , T34SZ sSET UP BUFFER SIZE (INC @ OF BYTES) 
7603 055006 012704 5 MOV @T34PK3 RO sR4 © POINTER TO PACKET 
7604 055012 010465 177776 MOV R4, TSOB(RS) sISSUE COMMAND 
7605 055016 004737 017124 JSR ° F sWAIT FOR SSR TO SET 
7606 016501 MOV TSSR(RS),R1 sGET TSSR CONTENTS 
7607 012702 000200 MOV ° sSET UP 
7608 055032 020102 CMP R1,R2 sARE THEY EQUAL 
7609 055034 001 BEQ 235% s6R, IT MIGHT BE END OF TAPE 
7610 055036 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7614 055042 ERRHRD ERRNO, T34RRF .PKTSSR 1 SECOND READ FORWARD FAILED 
055042 104456 TRAP CSERHRD 
055044 001015 -WORD 523 
055046 057600 .WORD TS34RRF 
055050 011700 -WORD PKTSSR 
7615 055052 235%: CKLOOP sLO00P IF SELECTED 
a 055052 104406 TRAP CSCLP1 
3 
ag $ SSSSSSSSSSHSESHHSSESSSESSSHHSSSSESSHSSESSSSSHSSESESESESHEHHHSESHEEEEEEEE 
618 3 
La 334 3 THE EOT BIT SHOULD HAVE REMAINED SET 
3 
eee FE SSSSSSHSHSSSHSSHSSSHSESSSESOSSESSESSSHOHHSHSHSSSSSESSESSEOESSSEEEEEEEEEED 
2 s 
7623 055054 013701 055446 MOV T34BFR+é,R1 sPICK UP xSTO 
7624 055060 010102 MOV R1,R2 3SET UP EXPECTED 
7625 055062 052702 000001 BIS @BITO,R2 3SET THE EOT BIT ON IN EXPECTED 
7626 055066 020102 CMP R1,R2 sWAS THE BIT ON 
7627 055070 001406 BEQ 2408 368R, IF EOT WAS FOUND 
7628 055072 004737 020106 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7632 055076 ERRHRD ERRNO, T34ETZ,EXPREC sEOT BIT CxXSTO) NOT SET 
055076 104456 TRAP CSERHROD 
055100 001014 -WORD 524 
055102 056667 -WORD T34ETZ 
055104 016350 .WORD EXPREC 
7633 055106 2408: CKLOOP sLOOP IF SELECTED 
7636 055106 104406 TRAP CsCLP1 
aoe 5 PdSeseoseeceoscossascoceoonseooooonessooooseonnsseeseooooenoonseoeeses 
3 
ag 3 NOW ISSUE A SPACE RECORDS REVERSE FOR 5S RECORDS 
3 
nats § SSOOS AOSHSSSHSSSSSSHHSHSHSSASESEESHSSEEHSSSEHSESESHOSHSSHEESEEOEHEEOEESE 
’ 
7641 055110 012737 140410 055550 MOV #140410, T34PK3 sSPACE RECORDS REVERSE, ACK, CvC=1 CMD. 
7642 055116 012737 000005 055552 MOV #5, 134RB sNUMBER OF RECORDS TO SPACE 
7643 055124 012704 055550 MOV OTS4PK3,R4 iR4 = PCINTER TO PACKET 
7644 055130 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
7645 055134 004737 017124 JSR PC ,WAITF sWAIT FOR SSR TO SET 
7646 055140 016501 000000 MOV TSSRC(RS), R1 3GET TSSR CONTENTS 


7647 055144 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
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TEST 5S: OPERATIONS Al EOT 
7648 055150 020102 CMP R1,R2 sARE THEY EQUAL 
7649 055152 001406 BEQ 2508 s6R, IT yl BE END OF TAPE 
7650 055154 004737 020106 JSR PC ,.FATCHK sINC AND CK FOR MORE THAN 25 ERRORS 
7654 055160 ERRHRD ERRNO, T3S4P0S,PKTSSR PACES 5 RECORDS REVERSE COPD FAILED 
055160 104456 TRAP CSERHRD 
055162 001015 -WORD 525 
055164 055676 .WORD T34P0S 
055166 011700 -WORD PKTSSR 
7655 055170 250%: CKLOOP sLOOP IF SELECTED 
end 055170 104406 TRAP CsCLP1 
a 
7657 FE SSSSSHOSHOHSSSSSSSESOSSESESESESESESESSESESEESEEESESEESESESESEESESEESSEEEEE 
7658 ; 
44 : EOT SHOULD BE CLEAR AS WE ARE NOW IN FRONT OF EOT 
- Q 
7661 PSSKAHHSHEHAHHEEHEABHALHESHABASHSEHLHOAAGADHHARSHHEAASHEHEAKALAKEHHHEEHHAEHHHDKOED 
7662 3 
7663 055172 013701 055446 MOV ar Ap Ri sPICK UP xSTO 
7664 055176 010102 MOV R1 3SET UP EXPECTED 
7665 055200 042702 000001 BIC asito. Re sCLEAR THE EOT BIT ON IN EXPECTED 
7666 055204 020102 CMP R1,R2 3WAS THE BIT ON 
7667 055206 001406 GEO 2608 38R, IF EOT WAS FOUND 
7668 055210 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7672 055214 ERRHRD ERRNO, TS4ETC,EXPREC se0T BIT (xXSTO) NOT CLEAR 
055214 104456 TRAP CSERHROD 
055216 001016 -WORD 526 
055220 056155 .WORD T34ETC 
055222 016350 -WORD EXPREC 
7673 055224 260%: CKLOOP sLOOP IF SELECTED 
sane 055224 104406 TRAP CSCLP1 
3 
oere 8 SSSOSSHEHASHHSSSASHSSASHEAGSOHHSSHSSHESHOSESHSSESESSESSESSESSSOHSESESEEEEEEEE 
676 3 
ao ; NOW SPACE FORWARD S RECORDS AGAIN 
34 s Ob osecesscenccccasconscoossoosseossooseoeesooeconsonoseeeeoooscen+eeeee 
3 
7681 055226 012737 140010 055550 MOV #140010, T34PK3 ‘  4SPACE RECORDS FORWARD, ACK, CvC*1 CMD. 
7682 055234 012737 000005 055552 MOV 5, 134R8 sNUMBER OF RECORDS TO SPACE 
7683 055242 012704 055550 MOV @134PK. Ra 3R4 = POINTER TO PACKET 
7684 055246 010465 177776 MOV R4, TSDBCRS) ISSUE COMMAND 
7685 055252 004737 017124 JSR PC. WAITF sWAIT FOR SSR TO SET 
7686 055256 016501 000000 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
7687 055262 012702 000200 MOV @SSR,R2 3SET UP EXPECTED 
7688 055266 020102 CMP R1,R2 sARE THEY EQUAL 
7689 055270 001406 BEQ 270% 38R, IT MIGHT BE END OF TAPE 
7690 055272 004737 020106 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7694 055276 ERRHRD ERRNO, T34P0S,PKTSSR i SPACE RECORDS FORWARD COMPIAND FAILED 
055276 104456 CSERHRO 
055300 001017 TWoRD 527 
055302 055676 .WORD T34P0S 
055304 011700 .WORD PKTSSR 
7695 055306 270%: CKLOOP ;LOOP IF SELECTED 
aa 055306 104406 TRAP CsCLPL 
3 
7697 FE SOSOSSSHHSHSSSSEESESSSEHHSHSHESHESSSEHESESASHOHAESESEHSSHSSESEHESEOEHEEHHOEEES 


7698 3 


E16 
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Hs 484 3 EOT SHOULD BE SET AGAIN 
6 
7701 FE SSSOSSOHSHHSSSHSHSHSSSHASOSSHESEASESEASESEOSEASEEHOEESESESHESEEEEEEEEEEE 
7702 3 
7703 055310 013701 055446 MOV T34BFR+6,R1 sPICK UP xSTO 
7704 055314 010102 MOV R1,R2] sSET UWP EXPECTED 
7705 055316 052702 000001 BIS + + 3SET THE EOT BIT ON IN EXPECTED 
7706 055322 020102 CMP R1,R2 3WAS THE BIT ON 
7707 055324 001404 BEQ 2808 36R, IF EOT WAS FOUND 
7711 055326 ERRHRD ERRNO, T3S4ETS,PKTSSR ;€0T FAILED TO SET AFTER | Ae CMD. 
055326 104456 TRAP CsERMRD 
055330 001020 ~ WORD 528 
055332 056601 - WORD T34ETS 
m2 055334 011700 e PKTSSR 
7713 055336 2808: CKLOOP sLOOP IF SELECTED 
re 055336 104406 TRAP CSCLP1 
6 
7715 PyYY Yi iiiriiriiirri irri riitriitiritiiiiitititiriiiiiriiiiiiir iii iy) 
7716 : 
ot 3 3 ISSUE A REWIND COMMAND 
a 
7719 J PSAHESEEEEESEAEAEESESEOEAOESELESSEEAEEEOESEESOESAEASEHEEEEOEEESEEOSEOEE 
7720 3 
7721 055340 004737 010434 JSR PC ,REWIND sREWIND CAL 
7722 055344 103411 Bcs 320% sO IF TSSR IS OK (GOOD) 
7723 055346 016501 000000 MOV TSSRCRS),R1 3GET T 
7724 055352 010004 MOV RO,R4 sSET UP PACKET 
7725 055354 004737 020106 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7729 055360 ERRHRD ERRNO, T34RWN,PKTSSR sTSSR IS INCORRECT AFTER REWIND 
055360 104456 TRAP CSERHRD 
055362 001021 .WORD S29 
055364 057246 -WORD T34RWN 
055366 011700 . WORD PKTSSR 
7730 055370 3208: CKLOOP ;LOOP IF SELECTED 
055370 104406 TRAP CSCLP1 
7731 055372 6008: 
7732 055372 ENDSUB g>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
055372 10060: 
055372 104403 ‘TRAP CsEsus 
7733 055374 004737 017362 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
7734 055400 103002 Bcc 163% :68R, IF NO LOOP REQUIRED 
7735 055402 000137 053040 JMP T34L00P sEXECUTE AGAIN 
7736 055406 163%: ExIT TsT sALL DONE THIS TEST 
€55406 104432 TRAP CsExIT 


055410 002600 -WORD 110057-. 


F16 


CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 113 SEQ 200 
TEST 5: OPERATIONS AT EOT 
7738 s° 
ha ;LOCAL STORAGE FOR THIS TEST 
$ - 
7742 055412 -BLKB 10-<.-TUV2AE7> 
7744 055420 TS4PACKET;: sCOMMAND PACKET FOR TEST 
7745 055420 100004 -WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
rree oo3eee 055430 . WORD petenen sADORESS OF CHARACTERISTICS BLOCK 
7748 000010 -WORD 8. sSTARTING VALUE OF BLOCK SIZE 
7749 055430 TS4DATA: sCHARACTERISTICS DATA BLOCK 
7750 055430 055440 .WORD T34BFR sADORESS OF MESSAGE BUFFER 
7751 055432 000000 -WORD O 
7752 055434 000012 «WORD 10. sLENGTH OF MESSAGE BUFFER 
7753 055436 «WORD O 
re 055440 T34BFR: .BLKW 25. sMESSAGE BUFFER 
3 
7738 ;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
é 
7759 055522 -BLKB 10-<., -TUV2AE7> 
7761 055530 T34PK2: 
7762 055530 100006 «WORD 100006 s;WRITE SUB SYS MEM COMMAND, AND ACK 
7763 055532 055570 .WORD 1T348F2 sADORESS OF SELECT BLOCK DATA 
7764 055534 000000 -WORD O 
rres 055536 000006 -WORD 6. 3SIZE OF DATA PACKET 
7768 055540 -BLKB 10-<,-TUV2AE7> 
7770 055550 T34PK3: 
7771 055550 100005 .WORD 100005 sWRITE COMMAND, AND ACK 
7772 055552 T34R8: 
7773 055552 000000 T34WB: .WORD 0 sADDRESS OF WRITE/READ BUFFER 
7774 055554 000000 -WORD 0 
7775 055556 000000 T34SZ: .WORD 0 3;SIZE OF BUFFER (EXTENT) 
HH at: 
3 
7778 055560 000000 T34RSZ: .WORD 0 ;LARGEST TAPE RECORD IN BYTES 
7779 055562 000000 T3S4CNT: .WORD 0O s;TAPE RECORD COUNTER 
v7ee 055564 000000 T340LY: .WORD 0 ;DELAY COUNTER 
a 055566 000000 T34TRK: .WORD 0 sHOLD TRACK NUMBER 
7784 : 
7785 055570 T34BF 2: 
7786 055570 010 T348S0: .BYTE 10 ;B8SELO AREA 
7787 055571 200 T34BS1: .BYTE 200 sBSEL1 AREA 
7788 055572 000000 T34S2: . re) SEL 2 AREA 
cre 055574 000000 T34S3: . re) 3;DATA AREA 
7791 - 
7792 
7798 ;TAPE MOTION PACKET COMMAND VALUES 
7795 055576 100005 T34WO: .WORD 100005 sWRITE DATA (NEXT) 
7796 055600 100405 T34WOR: .WORD 100405 ;WRITE DATA RETRY 
7797 055602 102005 T34CON: .WORD 102005 sWRITE CONTINOUS 
7798 055604 177777 «WORD 177777 3END OF DATA ’ 
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SEG 201 
ST S: OPERATIONS AT EOT 


7802 
7803 3* 
7804 sLOCAL TEXT MESSAGES FOR TEST 
7805 %- 
7806 
189 
7809 055606 045 116 045 EWMSG: .ASCIZ ‘sSNSA Early Werni Indicetor Just Received, Track = #02’ 
7810 055676 124 123 123 T34PO0S: .ASCIZ ‘TSSR Incorrect After Position (SPACE RECORDS) Command’ 
7811 055764 127 122 111 TS34ETO: .ASCIZ ‘WRITE TAPE MARK Beyond E0OT Failed To Set EOT Bit (xSTO)’ 
7812 056054 122 105 101 T34RRE: .ASCIZ "READ REVERSE Commend At EOT Didn’'t Give Normel Termination (TSSR)’ 
7813 056155 125 156 141 TS34ETC: .ASCIZ ‘Unable To Clear EOT Indication, (XSTO) Bit 0’ 
7814 056232 123 153 151 T34B0T: .ASCIZ ‘Skip File Mark Reve Cover entire tape) Failed To Set BOT (xXSTO) Bit’ 
7815 056341 127 122 111 T34WTM: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set Tape Stetus Alert’ 
7816 056430 127 122 111 TS34ET2: .ASCIZ ‘WRITE DATA Beyond EOT Feiled To Set T Stetus Alert’ 
7817 056516 127 122 111 TS34ETN: .ASCIZ ‘WRITE DATA ond EOT Feiled To Set EOT Bit (xSTO)’ 
7818 056601 123 120 101 TS4ETS: .ASCIZ ‘SPACE RECORDS Beyond EOT Failed To Set EOT Bit (xSTO)’ 
7819 056667 122 105 101 T34ETZ: .ASCIZ * READ DATA Beyond EOT Failed To Set EOT Bit (xSTO)’ 
7820 056751 120 117 123 T34TMK: .ASCIZ ‘POSITION Command Beyond EOT Into A Tape Mark Failed To Set TMK (xSTO)’ 
78621 057057 105 117 124 T34ET: .ASCIZ ‘EOT Not Found In 6 3.5K Writes, (Use Shorter Tape)’ 
he 057146 127 122 111 TS34E0T: .ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
7824 057224 117 160 145 TST34ID: -ASCIZ ‘Operations At EOT’ 
7825 057246 124 123 123 T34RWN: .ASCIZ ‘TSSR Incorrect After Position CREWIND) Command’ 
7826 057325 124 123 123 T34STM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE Beyond EOT Mark’ 
7827 057421 105 117 124 TS4STE: .ASCIZ ‘EOT CXSTO) Not Set After SKIP TAPE MARK REVERSE, Beyond EOT’ 
7828 057515 125 156 141 TS34TMN: .ASCIZ ‘Unable To Clear TMK (XSTO) Bit Using Space Command’ 
7823 057600 124 123 123 T34RRF: .ASCIZ ‘TSSR Incorrect After READ FORWARD Command’ 
rane 057652 124 123 123 TS34WOL: — ‘TSSR Incorrect After SKIP FILE MARK REVERSE’ 
rs . 
3 
7834 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
Lat sWRITE SUBSYSTEM MEMORY COMMAND 
3 
7837 :- 
7838 
7839 057726 T34REST: 
7840 057726 SAVREG sSAVE THE REGISTERS 
7841 057732 012701 055420 MOV @T34PACKET,R1 sSTART OF THE PACKET 
7842 057736 012721 100004 MOV #100004 ,(R1)-« sWRITE SUBSYSTEM MEM. WITH ACK 
7843 057742 012721 055430 MOV @T34DATA,(R1)> sADORESS OF CMARAISTICS DATA BLOCK 
7844 057746 005021 CLR (R1)> sEXTENDED ADORESS 
7845 057750 012721 000012 MOV #10. ,CR1)-+ sSIZE OF DATA BLOCK IN BYTES 
7846 057754 012721 055440 MOV OT34BFR,(R1)> sADORESS OF MESSAGE BUFFER 
7847 057760 005021 CLR CR1)> 
7848 057762 012721 000024 MOV #20. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
7849 057766 CLR R1)-+ 
7850 057770 012711 000000 MOV 00,(R1) sSELECT ORIVE ZERO 
7851 057774 012702 000030 MOV 4., sNUMBER OF LOCATIONS TO = A ees 
7852 060000 012762 177777 055440 64%: MOV 177777, T34BFRR2) sALL ONES TO MESSAGE BUF 
7853 060006 005742 TST CR] sBUMP DOWN TO NEXT LOPaT tone 
7854 060010 020227 000000 CMP R2,00 tR2 AT ZERO YET 
7855 060014 001371 BNE 643 sKEEP GOING UNTIL DONE 
ae 060016 000207 RTS PC 3;RETURN 


TET SI oPERATIONS AT Or 


7859 


013737 
032737 


012721 


055450 055566 
000010 055566 


100001 
010134 
060120 
177776 
017124 
055566 


177760 


055530 
100006 
055570 


000006 
055570 


055550 
100005 


(Thee o- a 


T34RTS: 


H16 
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THIS SUBROUTINE CHECKS FOR EARLY WARNING SET AND IF SET 
IT ISSUES A BACKSPACE AND AN ERASE TO GET TO THE NEXT TRACK 


SAVREG 
MOV 


BIC 


T34BFR+10, TS4TRK 


@BITS, TS4TRK 


R 
#177760 ,R2 


sSAVE ALL REGISTERS ETC. 
sREAD XSTAT1 FOR EW 

sWAS EW SET IN XSTAT1L 

s68R, IF IT WAS NOT 
sPARAMETERS FOR 5 <a Bat 


sISSUE THE ERASE COMMAND 
iWAIT FOR THE SSR BIT TO SET 
sGET TRACK NUMECR 

sSHIFT OVER 4 BITS TO BITO 
sSHIFT OVER 4 BITS TO BITO 
sSHIFT OVER 4 BITS TO BITO 
sSHIFT OVER 4 BITS TO BITO 
sONLY FOUR BITS PASS 


THIS MESSAGE USED TO PRINT EARLY WARNING MESSAGE. TRACK NINE 


DID NOT ALWAYS GIVE INDICATION. 
ALWAYS DETECTED DURING A WRITE. 


PRINTX 


@EWMSG ,R2 
105% 


PC 
10-< , -TUV2AE7> 
140411 


@T34PK2,.R1 
#100006 ,,(R1)-+ 
@T34BF2,(R1)- 
CR1)-+ 
@6.,CR1)« 
@T34BF2,R1 
CR1)> 

CR1)> 

(R1) 

PC 


@T34PK3,R1 
#100005 ,(R1)-+ 
CR1)> 

CR1)> 

CR1) 

PC 


THIS WAS BECAUSE IT WASN'T 
SO MESSAGE REMOVED. 


3“JUST RECEIVED EARLY WARNING IND.” 
+ im THE CARRY BIT 

3 

:CLEAR CARRY (NO EW FOUND) 

sRETURN 


sERASE DATA, CvC=1, AND ACK COMMAND 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
;POINT TO DATA SEL AREA 


3RETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE TAPE. WITH ACK 
sADORESS OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF DATA BLOCK 
sRETURN 


L10057: 


SEQ 202 


TRAP CseETST 


116 


seu ks FR a A I MACRO 41200 20-APR-84 08:13 PAGE 136 SEQ 203 
8986 
8991 
8997 
8998 
8999 
Soot .SBTTL HARDWARE PARAMETER CODING SECTION 
9002 yee 
9003 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
9004 3: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
9005 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
9006 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
9007 3s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
9008 3; WITH THE OPERATOR, 
9009 t-- 
9010 065010 BGNHRD 
065010 000015 -WORD .10061-L$HARD/2 
een: 065012 LSHARD: : 
9012 065012 GPRMA HPM1.0,0,160000,177776, YES 3;GET TSBA/TSDB REGISTER ADDRESS. 
065012 000031 -WORD TSCODE 
065014 065044 -WORD HPM1 
065016 160000 .WORD TSLOLIM 
065020 177776 -WORD TSHILIM 
9013 065022 GPRMA HPM2,.2,0.0,776, YES ;GET VECTOR ADORESS. 
065022 001031 -WORD TSCODE 
065024 065073 -WORD HPM2 
065026 .- WORD TSLOLIM 
065030 000776 .WORD TSHILIM 
9014 065032 GPRMD HPM3.4,0,340,0,7,YES 3GET INTERRUPT PRIORITY. 
065032 002032 -WORD TSCODE 
065034 065117 .WORD HPM3 
065036 000340 -WORDB 340 
065040 000000 WORD TSLOLIM 
065042 000007 -WORD TSHILIM 
9015 065044 ENOHRD 
-EVEN 
065044 L10061: 
9016 065044 104 105 126 HPM1: -ASCIZ ‘DEVICE ADDRESS CTSSR) ' 
9017 065073 111 116 124 HPM2: -ASCIZ ‘INTERRUPT VECTOR " 
ote 065117 111 116 124 HPM3: — ‘INTERRUPT PRIORITY ‘ 


CZTKHA TK-25 FRT END F 


000011 


000130 
065174 
177777 


177777 
002130 


065270 
177777 


105 
111 


111 


116 
116 


116 


101 
110 


110 


J16 
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SOFTWARE PARAMETER CODING SECTION 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


gee 

s THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. [HE 
s MACROS NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
:; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

ge 


BGNSF T 
-WORD L10062-L $SOFT/2 


LSSOFT:: 
GPRML SPM1,.0,-1,YES 3GET RAM DUMP FLAG 
.WORD TSCODE 
. WORD 
-WORD -1 
GPRML SPM4,.2,-1,YES ; GET ITERATION CONTROL. 
-WORD TSCODE 
. WORD 
-WORD -1 
GPRML SPM6,4,-1,YES ;GET EOT CHECK STATUS 
-WORD TSCODE 
. WORD 
-WORD -1 
ENOSF T 
.EVEN 
L10062: 


SPM1: -ASCIZ ‘ENABLE CONTROLLER RAM DUMP ON ERROR’ 
SPM4: -ASCIZ ‘INHIBIT ITERATIONS 


SPM6: .ASCIZ ‘INHIBIT EOT CHECKING (REDUCES RUN TIME BY 22 MINUTES)’ 
*SBTTL PATCH AREA 

3¢ 

;DISPATCH TABLE 


é 
; #ee MOVE TO FRONT OF PROGRAM FOR RELEASE eee 
37 


DISPATCH TESTNO 
. WORD 
LSDISPATCH: : 

-WORD Tl 

-WORD Te2 

-WORD T3 

-WORD 14 

-WORD TS 


& 
s FINALLY A GENEROUS PATCH AREA. 


s AND AN ADJUSTMENT TO ACCOUNT FOR THE "“LASTAD BIT7” HACK 
; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
é 


SEQ 204 


CZTKHA TK 
ARE 


PATCH 


— FRT END FUNC 04 


065410 
000005 


000001 


K16 
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PATCH:: 
3 


LSLAST::— 


IF NZ, .€377 
‘as 


sSET LAST USED ADDRESS. 


-SBTTL HARD CODED P-TABLE 


DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 


BGNSE TUP 
BGNP TAB 


-WORD O 
-WORD 1L10065-. 


1 


42-1 


SEQ 205 


GZ TKHA TKefe FRT END FUNC 04 


011772 G 
G 


ue 


: 
OHOHHAHHHOHOHHHHHHHHHHHH 


He 


88 
ie 


°o 
fv 
[wy 
a 
~~ 
° 
o 


° 
= 
wy 
w 
0 
Oana 


ray 

~~ 

~~ 
AHHH © 


DATAFL 
DATASC 
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021142 


So 
AHHH © 


an 


iat) 


a an o 


~ 
Onan 


KIPOR1= 


i 


° 
P 
~ 
°o 
~ 
~ 
an 


172302 


M16 


CoTSHA TKefe FRT END FUNC 04 MACRO M1200 20-APR-84 06:13 PAGE 137-3 SEQ 207 
KIPDR2= 172304 LSPROT 021760 G L10054 047546 $0U_ = 000001 0.0FST 061532 
KIPORS= 172306 LSPRT 002112 G L10055 050334 OSERRT®# 0.0.0 061130 
KIPDR&= 172310 LSREPP L10056 051122 OSGNSW= 000001 0.0F1 061134 
KIPORS= 172312 LSREV 002010 G L10057 060210 OSPOIN= 000001 0.0P2 061200 
KIPDR6= 172314 LSRPT L10060 055372 OsSSETU= 000001 0.0P2A 061206 
KIPOR7= 172316 LSSOFT 065152 G L10061 O.ADR1 064722 0.ORAB 060440 
KTENAB G L$SPC 002056 L10062 065174 O.ALL 063306 O.ORPC 060416 
KTFLG 003104 G LSSPCP 002020 G L10063 065402 0.AS 061002 O.ORRB 060450 
KTINIT 021626 L$SPTP 002024 G L10065 065410 -ASC 064271 0.P 064265 
KTOFF L$STA 002030 G ME 013606 G O.ASCI 062316 0.PCS 060430 
KTON 020234 L$Sw 002134 G MENASC 0213557 O.BACK 061266 O.PRNT 062554 
LERRMA 002142 G LSTEST 002114 G MENERR 021304 O.BALL 063172 O.PROC 062132 
LISTAL= 000001 LSTIM. 002014 G MENRES 021406 0.80 064272 O.PROM 064 
LOE == 040000 G LSUNIT 002012 G MESBFA 002720 G 0.BKP = 000016 O.RALL 061456 
LOOPCN 002166 G L10000 002132 MESBFN 014640 O.BKPT 061314 O.RCSR= 177560 
LOOPCO 012760 L10001 002146 MESHEA 015023 O.BRK 062622 0.ROB = 177562 
LOOPFL 003120 G L10002 005232 MMVEC = 000250 0.BW 064252 O.REG 064204 
LOT #* 000010 G L10003 011676 MPR = 174406 O.BYT 061040 O.REGT 060330 
LSACP 002110 G L10004 011726 MSA.FR= O.BYT1 061032 O.REM 063456 
LSAPT 0020 L10005 011744 MSA.NO= 000000 0.CAD 064254 O.RSB 063412 
LSAU 022554 G L10006 011752 MSA.NR= 000004 0.CADV 063620 O.RSR 063 
LSAUT 002070 G L16007 011770 MSA.VO= 0.CLGT= 000035 O.RSTT 063552 
LSAUTO 022760 G L10010 012006 M 012010 G O.CLSE 064116 0.S 064263 
LsCCP 002106 G L10011 012020 012716 G 0.COMP 062456 0.SCAN 060574 
LSCLEA 023034 G 110012 012072 MSGSTA 012202 G 0.CR 064275 O.SEMI 060774 
Lsco 002032 G 110013 012242 MSG 013574 G O.CRET 061122 0.SEQ 064270 
LSDEPO 002011 G L10014 012756 MS.ATT= O.CRLF 0641 - SNGL 

LSDESC 003346 G L10015 013604 MS.EXT= 000200 O.CRLS 064164 0.SP. 064104 
LSDESP 002076 G L10016 013626 MS.RSD= 000001 Q.CSR1 064 O.STM = 

L$DEVP 002060 G L10017 016354 MS .RSF= O.CSR2 0642".7 0.S 063322 
LSDISP 065360 G L10020 016362 MS.RST= 000010 0.CT 064744 O.SVTT 063524 
L$DLY 002116 G L10021 016370 A  # 002000 0.C1i 062204 O.SWCH 064714 
L$OTP OG L10022 01 NEWPAS 022206 0.000 060550 ° 

LSDOTYP 002034 G L10023 016424 003066 G 0.D0CDA 061126 O.TBIT 062062 
L$DU 022652 G L10024 016452 NOINIT 004237 0.0CO0B 061454 O.TBT = 

L$DUT 002072 G L10025 016612 NOINTR 004123 0.0C01 060570 O.TCLS 060472 
L$DVTY 003340 G L10026 017122 NOITS 002136 G 0.0C02 060564 O.TCSR= 177564 
LSeEF G L10030 022504 NOMAN 021444 0.00T 064256 0.TOB = 177566 
LSENVI 002044 G L10031 022650 NP.IR = 000200 O.DUMP 062236 0 064342 
LSETP 002102 G L10032 022756 NP.LOO= 000040 O.EFF 061642 O.TRTC 064352 
LSEXP1 00. G L10033 023032 NP .OUT= 000100 O.ERR 060540 O.TVEC= 000014 
LSEXP4 002064 G 110034 0 NP .WRP= 000020 O.ERR1 061636 O.TYPE 064070 
LSEXPS 00 G L10035 023322 004054 O.FCHR 064716 O.UIN 064766 
L$HARD 065012 G L10036 032324 NSINIT 004311 O.FCNT 064720 0.UPC 064702 
L$HIME 002120 G L10037 024310 004431 O.FTYP 063734 O.UPS 064704 
L$HPCP 002016 G 110040 024764 NULCR 004432 0.GET 064002 0.URO 

LSHPTP 002022 G L10041 025466 NXM == ~004 0.GO 062032 0.USP 064700 
LSHw 002124 G 110042 026332 NXR 003642 0.GO01 062110 O.WB1 061046 
L$ICP 002104 G L10043 320 NXRERR 005202 G 0.G02 062114 O.WOFG 064 
L$INIT 021770 G L10044 033722 NXRX 003701 O.HIGH 064712 O.WRD 061016 
L$LADP 002026 G L10045 035316 NXTU 022220 -LG = 9000010 O.WRD1 061062 
LSLAST 065376 G L10046 035670 OFL =# 000100 O.LGCH 064305 O.WSCH 061646 
L$LOAD 002100 G L10047 036332 ONEF IL = 0.LGDR 060702 O.XXX 064260 
LSLUN 002074 G L10050 046636 OSAPTS= 000000 O.LOW 064710 PASRPT 022252 
LSMREV 002050 G L10051 042214 OsAU = 000001 O.MOVE 062414 PATCH 065372 G 
L$NAME 002000 G L10052 O$BGNR= 000001 O.MSK 064706 PATDAT 021140 
L$PRIO 002042 G L10053 052776 O$BGNS= 000001 0.00T 060212 G PC.ERA= 002400 
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SYMBOL TABLE 


oenunpeneuoe 
OO AMHMHHAHHA 


Pu.ROS* 000005 
Pw. Re Ie 000003 
ote he 00006 


22222 
Fh 
u 


. . 7 o = 
HORNO 
Meters tity 4 
4030 
3 0 5 


abg788 
: 
: 


VVUVVVVVVVVVVUVUY 
Le | 
4 
8 
uw 


P-WRTC= 000004 
PURTS= 


010530 


AHA oO 


ag OO 


100000 
020000 
004715 


TSEXCPe= 
TSFl AGe 


anno OHO Of AH AHHHAAH 


ann 


TOFREE® 065410 
TOGHANe 


T1 023644 
T1.1 023704 
Tl.2 024312 
1.3 024766 
1.4 025470 
T2 032326 
T2.1 032362 
T2.2 033724 
T2.3 035320 
T2.4 035672 
T29AMS 030412 
T298A 030754 
T298FR 026400 
T298F2 026520 


CZTKHA 
SYMBOL 


TK-25 FRT END FUNC 04 
T 


ABLE 


T318S1 
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TSiCNT 


Cl 


XSOPED= 


057515 


an 


AAAnH 


SEQ 209 


D1 


CEM tKeee FRT END FUNC 04 MACRO M1200 20-APR-84 08:13 PAGE 137-6 SEQ 210 
XSORLL* 010000 XXCOMM 003074 G X1.RBP= 000400 X2.SPA* 035400 X3.RIB= 000001 
XSORLS= 040000 X$ALWA= 000000 X1.SPA* 040000 X2.UNI* 000007 X3.SPA= 000200 
XSOTMK= 100000 X$FALS* 000040 X1.UNC= 000002 X2.WCF = 002000 X3.TRF= 000020 
xSOVCK= 000020 XS$OFFS= 000400 X2.BUF= 000100 X3.0CK= 000010 X4.HSP= 100000 
XSOWLE= 004000 X$TRUE*= 000020 X2.ExT* 000200 X3.MBZ= 000006 X4.MBZ= 017400 
XSOWLK= 000004 X1.COR= 020000 X2.0PM= 100000 X3.MDE* 177400 x4.RCE= 040000 
XS1CON 015247 X1.0LT* 100000 X2.RCE= 040000 X3.0PI= 000100 x4.TSM= 020000 
XS2CON 015314 X1.MBZ= 017375 x2.REV= 000077 X3.REV= 000040 x4.WRC= 000377 


XS3CON 01536. 
- ABS. 065410 000 
000000 001 
ERRORS DETECTED: 0O 
VIRTUAL MEMORY USED: 31872 WORDS ( 125 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 


ELAPSED TIME: 00:32:05 
CZTKHA.BIC,.CZTKHA/-SP=SVC/ML ,CZTKHA 


